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CZIECAO FICHE O1 OF O1 





IDENTIFICATION 


PRODUCT CODE:  AC-TE79A-MC 

PRODUCT TITLE: CZIECAO IECI1-8 PDP-11 OIAGNOSTIC 
PRODUCT DATE: JANUARY 1984 

DEPARTMENT : CSS, MUNICH 

AUTHOR ; J. MOLLER 


COPYRIGHT (C) FIRST,1979,1964 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED 
AND COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE 
AND WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR 
OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE 10 
AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERED. 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT By DIGITAL 
EQUIPMENT CORPORATION. 
DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 


OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED Br DIGITAL. 


Bl 


SEQ 1 


e+ e+ Gf Ge GF Ge ©+ Ge Ge Ge GF Ge Ge GF Ge Ge Gh Ge Ge GF Ge GF Ge Ge Ge Ge Gt Ge Gee GF 


ene yvyvw & Ww 
-o 082 NFO NMRFO CO 


~ 
. 


Cl 


ABSTRACT 


REQUIREMENTS 
PRELIMINARY DIAGNOSTICS 


LOADING PROCEDURE 
ME THOD 


STARTING PROCEDURE 
OPERATING PROCEDURES 
SWITCH SETTINGS 
PRINTOUTS 

ERRORS 

ERROR FORM’ 

ERROR DESCRIPTION 
EXECUTION TIME 


MISCELLANEOUS 
RESTRICTIONS 


PROGRAM DESCRIPTION 
DIAGNOSTIC MONITOR DESCRIPTION 
LISTING 


SEQ 2 


ee @f Ge Gs Ge Ge oe Ge Ge Ge Ge Gs Ge Ge GF Gs Ge Gs Ge GF GF Ge Gt Os Ge GF Ge Gs GH Ge GF Ge Gs Ge Gs GF Ge Ge Ge Ge Ge GF Ge Ge os Ge Gs Gs GH Gt oe Gt oe GF 


2.0 


3.0 


$.1 


4.0 


5.0 


w 
~ 


THIS PROGRAM IS DESIGNED TO TEST AND woiste: 


AN ITECi1-68 INTERFACE TOGETHER WITH AN IEC1 
INTERFACE. 
REQuUTI ME TS 


POP11 WITH AT LEAST 8K MEMORY ,CONSOLE TERMINAL 
WITH STANDARD ADDRESSES, INTERRUPT LEVEL AND 
PRIORITY. 

IEC11-A INTERFACE 

IEC11-B8 INTERFACE 

TESTCABLE (BCO8S-Xx) 


PRELIMINARY DIAGNOSTICS 


PHS HEHHSSHEHH SHES SESH SHOES OHH SHEESH EO OEE 


ALL DIAGNOSTIC PROGRAMS FOR THE IEC11-A MUST RUN 
SUCCESSFUL. 


LOADING PROCEDURE 
eeereeeoeoeoeo eo eo eo eoeeoeeoeoeeeeeoeoeoeeeeeoeoe 
METHOD 

SEE DIAGNOSTIC MONITOR DESCRIPTION 


STARTING PROCEDURE 


SHES HSHHSSH HSH SSO HOSE HOE OOO EES 


SEE DIAGNOSTIC MONITOR DESCRIPTION 


OPERATING *? PROCEDURES 


SHEESH EHH EEE HEHE SH HHH HHO HOSES 


SWITCH SETTINGS 
SEE DIAGNOSTIC MONITOR DESCRIPTION 


D1 


SEQ 3 


S.e2 PRINTOUTS 


AFTER THE IDENTIFICATION PRINTOUT FOLLOW A FEW 
QUESTIONS FOR THE ADDRESSES AND THE VECTORS. 


SSES 
AND VECTORS, ENTER JUST A <CR> AND THROUGH ALL THE 
TESTS THESE VALUES WILL BE USED. A TYPICAL, ERROR- 
FREE PASS WILL BE EXECUTED IN THE FOLLOWING ORDER: 


(NOTE THAT USER INPUT IS UNDERLINED) 


COM v3.0 ---CSS DIAGNOSTIC MONITOR - -- 


HIGHEST MEMORY ADDRESS :XXXXXXX 
IECi1-68 TEST IN CONNECTION 
WITH AN IEC11-A INTERFACE 
AC-T879A-MC 

CSS MUNICH MARCH 1979 


ENTER FIRST REGISTER ADDRESS OF IEC11-A 
(DEFAULT IS 160010) 
COM><CR> 


ENTER VECTOR ADDRESS OF IEC11-A 
(DEFAULT IS 270) 

CMD ><CR> 

ENTER IEC-BUS ADDRESS OF IEC11-A 
(DEFAULT IS 35) 

CMD><CR> 


ENTER FIRST REGISTER ADDRESS OF IEC11-8 
(DEFAULT IS 160020) 
CDM><CR> 


ENTER VECTOR ADDRESS OF IEC11-A 
(DEFAULT IS 274) 
CMD ><CR> 


ENTER IEC-BUS ADDRESS OF IEC11-8 
(DEFAULT IS 36) 
CMD ><CR> 


NEXT TEST TO RUN ? 
CMD ><CR> 


El 


SEQ 4 


oo ef oF oF 


TEST 1: REGISTER STATIC TEST 

END OF TEST 

TEST 2: TALKER AND LISTENER FUNCTION TEST 

END OF TEST 

TEST 3: GENERAL INTERRUPT AND DMA FUNCTION TEST 
END OF TEST 

TEST 4: DMA-TRANSFER FROM B TO A (B IS TALKER) 
END OF TEST 

TEST 5S: DMA-TRANSFER FROM A TO B (B IS LISTENER) 
END OF TEST 

TEST 6: MATCH CHARACTER REGISTER TEST (B IS LISTENER) 
END OF TEST 

TEST 7: SERIAL POLL PROCEDURE TEST 

END OF TEST 


TEST 1: REGISTER STATIC TEST 
<CTRL C> 


CDM>ABO<CR> 


NEXT TEST TO RUN ? 
COM> 


THE ABOVE PRINTOUT IS A TYPICAL EXAMPLE FOR AN ERROR FREE RUN. 


Fil 


SseQ 5 


ee Gs Ge Ge Ge @F Ge Os Ge Ge GF Ge oe GF Ge GF GF GF Ge Ge Ge GF Gs GF Gs Ge GF Gs Gs Ge Ge GF GH GF Ge GH GF GF GF GH Ge GF GH GF GF GH GF Ge GF oF 


6.2 


7.0 


8.0 


Gl 


ERRORS 


ERROR FORMAT 

THE ERROR FORMAT IS DESCRIBED IN SECTION 10, 
DIAGNOSTIC MONITOR. 

ERROR DESCRIPTION 

SEE PROGRAM DESCRIPTION (FLOWCHARTS) 


ERRORS FROM "REGTST” SUBROUTINE : MAY APPEAR IN TEST 1 
ERROR 255: WRITE AND READ ERROR IN A REGISTER 


AFTER LOADING THE R/W BITS WITH A RANDOM PATTERN 


ERROR 254: WRITE AND READ ERROR IN A REGISTER 
AFTER LOADING ALL THE R/W BITS WITH O 

ERROR 255: WRITE ANDO READ ERROR IN A REGISTER 
AFTER LOADING ALL THE R/W BITS WITH 1 


ExECUTION TIME 


5 ee 


THE EXECUTION TIME OF ONE SEQUENTIAL PASS DEPENDS ON 
THE CONSOLE TERMINAL (BAUD RATE) AND THE TYP OF PROCESSOR. 


ONLY TEST 6 TAKES MORE THAN 10 SECONDS AFTER IDENTIFICATION. 


SEE PROGRAM DESCRIPTION 


DON’T USE ADDRESS “O” FOR IEC BUS ADDRESS 
ON TEST CONFIGURATION !! 


MAKE SURE THAT ALL SWITCHES ON IEC11-A AND IEC11-8 
ARE SET CORRECTLY 


SEQ 6 


ee © Ge Ge os @F ©F Gs Ge Ge Ge Ge OF GF Ge OF G+ Ge Ge GH Gt Ge GH GF Gs GF GF Gs OF GF Ge GH GH GH Ge GF GH Ge GF GF GF oF 


Hi 


PROGRAM DESCRIPTION 


SPCC SSS SSS SOSH EHH OTOH O HOH HEHE 


THE IEC11-8 TEST PROGRAM IS A SET OF 
SEVEN INDEPENDENT ROUTINES THAT CAN BE CALLED 


WHEN THE QUESTION OCCURS, 
NEXT TEST TO RUN ? 
ANYONE OF THE SEVEN TESTS CAN BE SELECTED. 


IF <CR> IS PRESSED, THEN ALL TESTS WILL 
RUN SEQUENTIALLY. 


ALL TESTS CAN BE ABORTED BY PRESSING <CTRL C>» 
AND TYPING “ABO” 


ANY SINGLE SELECTED TEST RUNS * AN ENDLESS LOOP 
WITH NO PRINTOUT (E.G. END OF TEST). 


TO RUN A TEST ERROR FREE,ALL PREVIOUS TESTS MUST PROVE 
SUCCESSFULL !! 


THE FOLLOWING SECTION CONTAINS THE FLOWCHARTS FOR ALL TESTS. 
ALL ERROR NUMBERS WHICH ARE MARKED WITH A “e” APPEAR AFTER 
A PROGRAMMED DELAY. 
--SB-ERROR 35 : SB STANDS FOR AN ADDITIONAL reed BEF ORE 
ERROR NUMBER PRINT OF THE FORM 
CONTENTS SHOULD BE : 000026 BUT WAS : 000025 


{ TEST xx ] : :  * e REFER TO LABELS IN THE PROGRAM 
i. 


Il 


aeeeacacee TEST 1: REGISTER STATIC TEST 
en As CLEAR FUNCTION OF OF IEC11-A AND IEC118 
ALL READ/WRITE BITS IN IEC11-8 ARE CHECKED wITH 
ALTERNATE PATTERN (EXCEPT BIT O IN CSR.) 


[ TESTI ] 


“SET R\W BITS : 
IN IEC11-8: 


i 


MASTER CLEAR 
o 
' 
<« CIR=0? >-NO----- SB-ERROR 1 
; / 
Y 
E 
S 
: 
fun cosnesteecdves \ 
< SMR =0? >MD-<+--- SB-ERROR 2 
\ / 
Y 
E 
S 
' 
Peweocsereeeenes \ 
«BORO? — o-MD----- SB-ERROR 3 
ee ee 


SEQ 8 


: R\W BIT TEST _ 
: BY “REGTST" 
: OPTION . 


< 


Jl 


\ 
>-NO----- SB-ERROR 4 
/ 
\ 
>-NO----- SB-ERROR 5 
/ 
\ 
>-NO----- SB-ERROR 6 
/ 
\ 
>-NO----- SB-ERROR 7 
i 
: ERRORS 253 , 254 , 255 
; MAY APPEAR 
>-ND-----+-- WRITE “END OF TEST” 
/ GOTO TEST SELECT ROUTINE 


Ki 
eeenseecce TEST 2 : TALKER AND LISTENER FUNCTION TEST 


[ Teste ) 


SET SIC 


fee cere cee ree ee \ 
< DATA ACC SET ? >-NO-------- ERROR*10 
/ 


SEQ 10 


< AND TACS SET _——-»-NO----- 


CLEAR STATE 
CHGE IN CSR 


<« AND INT RESET 


: STATE 


/STATE CHGE,INT \ 
« SET,TACS RESET 
\ IN CSR ? / 


SB-ERROR 11 


>-NO----- SB-ERROR 13 


a 


SEQ 11 


M1 


SEQ 12 


:CLR STATE CHGE : 
:SET A INTO TACS: 
:GOTO STANDBY : 


ee 


\ 
TACS RESET >-NO----- SB-ERROR 14 
\ IN CSR ? / 


AND — >-NO----- SB-ERROR 15 


Ni 


SEQ 13 


\ 
< AND INT — >-NO----- SB-ERROR 16 
/ 


/STATE CHGE,INT \ 
< SET,LACS RESET »-NO----- SB-ERROR 17 
\ INCSR ? / 


/ 
<« IS LACS RESET ? >-NO-------- ERROR 18 
\ / 


> 
IC 
SEQ 14 


: LEAVE STANDBY : 
: SET B TO LADS : 
: SET B TO TADS ;: 
: GOTO STANDBY : 


/STATE CHGE,INT \ 
< AND TACS SET 
\ INCSR ? / 


>-NO----- SB-ERROR 19 


< TEST REPEAT ? >-NO-------- WRITE “END OF TEST” 
ionaditnsneaione / GOTO TEST SELECT ROUTINE 


oyun < +e 


GOTO REP2 


soccesesos TEST 3 : GENERAL INTERRUPT AND OMA FUNCTION TEST 


' oene OF ALL BITS WHICH CAN AFFECT “INT” IN CSR 

K . 

THOSE BITS ARE: “STATE CHGE”, "NEX”, "BC OVFL”,”END” IN CSR 
ALSO THE BUS REQUEST LEVEL OF IEC11-8 IS IDENTIFIED, 

IF THE TESTS RUN SEQUENTIALLY. 


if TESTS ] 


ee ee 


SET A TO CACS 
SET A TO TACS 
SET B TO LACS 
GOTO STANOBY 


eee ewe eee wee 


7 INTERPUPT \ 
< CAUSED BY > NO-----SB-ERROR 22 
\ STATE CHGE ? / 


< “i128 K MEMORY ? Pinca corcceee GOTO NEX1 


SEQ 15 


: FROM INO PAGE : 


: PuT IT TO: 
: ENABLE OMA; 
AND INTERRUPT : 
: BYTE TO LOR : 
bevhcreitr paeones 
Joccccens -sceses \ 
< DATA ACCEPTED ? 
\ nee ee eee ee ee eee 4 
: 
Y 
E 
Ss 
: 
~evTrrrerTTr Tt \ 
<« INTERRUPT ? 
Necccccccccsccee / 
: 
Y 
£ 
Ss 
: 
7 INTERRUPT 
< CAUSED BY 
\ NEX ? / 
CE etapa graehaen 
y 
E 
S 
: 
{ NEX1 ] 


47 400000 IS 


\ 
< WNON-EXISTANT 
\ MEMORY ? / 


-—-se ewww 


ERROR*23 


ERROR*24 


ERROR 25 


GOTO NEX2 


De 


SEQ 16 


E2 


SEQ 17 
: ENABLE OMA; 
: AND INTERRUPT : 
: a : 
mn repenaeie panaes 
: BYTE TO TOR : 
aeareresmneée “eae 
J te veveccccucess \ 
< DATA ACCEPTED ? >-NO-------- ERROR*26 
ee ee / 
: : 
Y 
E 
S 
$ 
Jocccccccccceecs \ 
<« INTERRUPT ? >-NO-------- ERROR#*#27 
hes dank mmenes / 
? : 
Y 
E 
S 
H 
7 INTERRUPT \ 
< CAUSED BY >-NO----- SB-ERROR 28 
\ NE X ? / 
i eae “esis 
Y 
E 
S 
H 
[ NEX2 ] 
7 200000 IS \ 
< NON-EXISTANT »-NO-------- GOTO NEX3 
\ MEMORY ? / 
siaaaichie 
E 
S 


re 


SEQ 18 


ee ee 


/ \ 
< DATA ACCEPTED ? >-NO-------- ERROR+29 
\ / 


< INTERRUPT ? >-NO-------- ERROR*30 


47 INTERRUPT \ 
< CAUSED BY >-NO----- SB-ERROR 31 
\ NEX : 


100000 IS \ 
< WNON-EXISTANT »>-NO-------- GOTO NEX4 
\ MEMORY ? / 


: ENABLE OMA : 
: AND INTERRUPT ; 
: ON 100000 : 


< “INTERRUPT ? 


< CAUSED BY 
\ NEX ? / 
seteteneeetens 
Y 
E 
S 
[ NEXa 
7 &0000_ ae 
< —NON-EXISTANT 
\ MEMORY ? 
Seaoumen woteoes 
E 
§ 
: ENABLE DMA; 
: AND INTERRUPT : 
: ON. 40000: 
ceeteseeeneeees 
‘BYTE TO TOR: 
. 


rere ERROR*33 


GOTO BCOVFL 


ERROR*35 


Ge 


SEQ 19 


< INTERRUPT ? 


< CAUSED BY 


: ENABLE DMA 


He 


\ 

>-NO-------- ERROR*+36 
/ 
\ 

>-NO----- SB-ERROR 37 
/ 


: AND INTERRUPT : 


: FOR BC OVFL : 
seeteetceeeeees 
“BYTE TO IOR : 
bn tle wesetee 
Jenne ccee cree eee \ 
< DATA ACCEPTED ? >-NO-------- ERROR*38 
RE ET 
; 
Y 
E 
S 2 
$ . 
< INTERRUPT 2. »>-NO-------- ERROR*39 


SEQ 20 


: AND INTERRUPT : 


Te 


< “bata ACCEPTED > >-NO-------- ERROR*41 


4 INTERRUPT ? 


< CAUSED BY 
\ ENO ? 
ima” oensese 
Y 
E 
S 
H 


>-NO-------- ERROR*42 


‘ VES------- GOTO REP3 


SEQ 21 


Je 


SEQ 22 


: SETUP FOR BUS : 
: REQUEST LEVEL : 
: CHECK BY : 
: STATE CHGE 


< ANY BUS REQUEST >-NO-------- ERROR*44 


: WRITE “END OF :; 
: TEST” AND GO : 
: TO TEST SELECT: 
: ROUTINE 


oseseseeee TEST 4 : DMA-TRANSFER FROM B TO A (8B IS TALKER) 


{ TEST4 } 


< TEST REPEAT ? >-NO-------- USE MAXIMAL BYTE COUNT 
ne cromsne cesses / GOTO REP4 


’ 
E 
5 
{ BCIN4 ] 
Seches sgt 
BYTE COUNT 
Penis te a 
[ REPS ) 
: PREPARE 
: BUFFER A AND B: 
ind weoetees 
“MASTER CLEAR 


SET A TO CACS : 
: SET A TO LACS : 
: SET B TO FACS : 


: GOTO STANDBY 


:PREPARE BAR AND: 
:BCR.ENABLE OMA ; 
AND INTERRUPT : 


ee ee es 


ERROR*45 


GOTO INTB4 


Ke 


SEQ 23 


Le 


SEQ 24 


: IOR HIGH BYTE : 
: TO BUFFER A: 


Y 
E 
s 
$ 
Pécvtensesetnahe \ 
« DELAY DONE 2? >-NO------~- GOTO LAST4 
Ym wwe eeccccccces 
Y 
E 
s 
finer ner ene ene eee \ 
< TO LESS BYTES »-YES------- ERROR#46 
\ TRANSFERRED ? / 
: 
N 
0 
: 
Peurtwvaviveganeed 
< TO MANY BYTES >-YES------- ERROR+47 


\ TRANSFERRED ? / 


Me 


/ INTERRUPT \ 


< CAUSED BY >-NO----- SB-ERROR 48 
\ BCOVFL ? / 


: BYTE COMPARE 
: OF BUFFER A 
: AND BUFFER B 


' 
Pcsnnunravcowens \ ; 
< BYTE A EQUAL »>-NO----- SB-ERROR 49 
\ TO 8YTEB? / 
ceeeeteneeesens 
Y 
E 
S 
‘ 
PS Se aE 
< ALL COMPARED ? >-NO-------- GOTO CMP4 
Cccidainwwamaaies 
; 
Y 
E 
S 
’ 
< TEST REPEAT 2? >-NO-------- WRITE “END OF TEST” 
Aspe Prather / GOTO TEST SELECT ROUTINE 
, 
vy 
E 
S 
g 


GOTO REP4 


SEQ 25 


Ne 


eeeseccess TEST S_ : DMA-TRANSFER FROM A TO B (8B IS LISTENER) 


SEQ 26 


( TESTS ) 


J 
J cvesccccosceoes \ 
< TEST REPEAT ? »-NO-------- USE MAXIMAL BYTE COUNT 
Necsceneesconcee / GOTO REPS 
Y 
t 
S 
{ BCINS } 
“ASK FOR 
BYTE COUNT: 
spenianite <reenane 
{ REPS ) 
o 


: SET A TO CACS : 
: SET A TO TACS : 
: SET B TOLACS : 
: GOTO STANDBY =: 


:PREPARE BAR AND: 
:BCR,ENABLE DMA : 
: AND INTERRUPT : 


: BYTE TO IOR : 
: FROM BUFFER A : 


B3 


SEQ 27 


ee eee ee ee ee 


INTERRUPT \ 
< CAUSED BY => -NO-- -- -SB-ERROR 50 
\ BCOWFL 2 / 


: BYTE COMPARE : 
: OF BUFFER A: 
: AND BUFFER B : 
_— a 
Pec crcunesscseus \ 
< BYTE A EQUAL »>-NO----- SB-ERROR 51 
\ TO 6YTEB? / 
Bian ie wesetees 
Y 
E 
S 
: 
< “ALL COMPARED? - eee GOTO CMPS 


_ 


TEST 6 : MATCH CHARACTER REGISTER TEST 


Pic soucens cscvses \ 
TEST REPEAT ? 


GOTO REPS 


( TEST6 ] 


ee eee eee eee eee 


: SET A TO CACS 


SET A TO TACS 
SET B TO LACS 
GOTO STANOBY 


“BUILD FIRST 
MATCH COUNT 
AND CHARACTER 


‘PREPARE 
BUFFER A WITH 
ONE CHARACTER 


: LIMITED By 
: MATCH COUNT 


“se eee ae 


WRITE 


“END OF TEST” 


ss 


GOTO TEST SELECT ROUTINE 


(B IS LISTENER) 


SEQ 28 


D3 


SEQ 29 
H 
: PREPARE MCR, : 
: BAR AND Hy 
: ENABLE : 
: DMA ,MAT : 
: AND INTERRUPT ; 


: BYTE TO IOR : 
: FROM BUFFER A : 


: 
ee >»! 
: : 
8 [eeccccccecceees \ 
---NO-< DATA ACCEPTED ? > 
Ne eee ec ee eee eens / 
Y 
E 
Ss 
fame nen ee eeeceeee \ 
< INTERRUPT ? >-NO ------- GOTO OMA6 
Nee eee eee eee eens / 
Y . 
E 
Ss ’ 
/ INTERRUPT . 
< CAUSED BY >-NO----- SB-ERROR 52 
‘1 Bo ? / 
Sew ee ners a 
E ‘ 
S 
3 
[ ows ] 
: BYTE COMPARE : 
: OF BUFFER A : 
: AND BUFFER B : 
ns aanenme 
Famer reer reer eens \ 
< BYTE A EQUAL >-NO----- SB-ERROR 53 


\ TO BYTE B ? / 


Y 
E 
s 


: GET FIRST 
: CHARACTER 


GOTO REP6 


=o 


GOTO CMP6 


seeee--e GET NEXT CHARACTER 


GOTO BEG6 


GET NEXT COUNT 
GOTO BEG6 


WRITE “END OF TEST” 
GOTO TEST SELECT ROUTINE 


SEQ 30 


aaeaenaece TEST 7 : SERIAL POLL PROCEDURE TEST 


{ vest? ] 


er 


: ENABLE 


: TALKER ADDRESS: 


ADDRESS 


: 
o 
: 


ra 


SEQ 31 


< 


ee 
eee eee ewer eee 


: DISABL 


see ew eee 


ERROR*5S 


G3 


SEQ 32 


< 


H3 


: BUILD FIRST : 
: TALKER ADDRESS: 


eee eee eee eee 


: ADDRESS 


a 
/ STATUS BYTE \ Riot deatvw takai . 
EQUAL TO ere < ALL DONE ? >-YES- 
\ ZERO ? Scawecemneinetel ' 
ween eee eeeeneee ! ‘ 
N GOTO 


SEQ 33 


13 


Tiit Tri ‘ 
ERROR 57-- --NO-<CORRECT ADDRESS t» aetrnnt s manatie 
a eee ececceosccs : GET NEXT : 
' : TALKER ADDRESS: 
Ser St ty epee nee re ‘BRE 
s GOTO P1 
«STATUS BYTE OK? — oe SB-ERROR 58 
Y 
E 
S 
’ 
[ PENO1 } 


47 VALID STATUS \ 
< BYTE FOUND ON »>-NO-------- ERROR 59 
\ B ADDRESS ? / 


: DISABLE 


7 SRQ CLEARED \ 
<« BY SERIAL ene” >-NO-------- ERROR 60 
\ DISABLE ? 


SEQ 34 


: SET A TO TACS : 
: SET B TO LACS : 


: ENABLE OMA : 
: AND INTERRUPT : 
: FOR BC OVFL : 


ee 


J3 


SEQ 35 


: ENABLE : 


BUILD FIRST : 
TALKER ADDRESS: 


: 
[ P2 } 
! 
: SEND TALKER: 
: ADDRESS 
aera weseeees 
: GOTO STANDBY 
a 


/ STATUS BYTE \ 


K3 


< EQUAL TO eS ee < ALL DONE ? > -YES- 
\ ZERO ? * yl inaaatad De ite “romaine BE / 
a+seenekenene . : 
: N GOTO 
N 0 PEND2 
: LEAVE STANDBY 
ee eee ee ee eee eee ee ee eee 
btbwanionswaawial 1 
ERROR 61----NO-<CORRECT gonents Ge: Fw eeenntvenedinds 
wrt e eee ener ee-- : GET NEXT 
‘ TALKER ADDRESS: 
tit yee. oe i oon 
s GOTO P2 
«STATUS BYTE OK?) >-NO----- SB-ERROR 62 
Y 
E 
S 


SEQ 36 


L3 


SEQ 37 


/ VALID STATUS \ 
< BYTE FOUND ON »-NO-------- ERROR 65 
\ B ADDRESS 2 / 


: SET A TO TACS : 
: SET B TO LACS : 


: AND INTERRUPT ; 
: FOR END : 


ee 


eee eee ewe we eee 


: ENABLE 
: BUILD FIRST: 
: TALKER ADDRESS: 


ee es 
eee eee mee ee eee 
~~ eee eee em ee eee 


M3 


SEQ 38 


/ STATUS BYTE \ /----+----------- \ 
< EQUAL TO >-YES--------- < ALL DONE ? 
\ ZERO ? / Noses ——uever / 
O rey wees N 
N 0 
DS i > am ull Us “eutovsumeswcdse 
i : LEAVE STANDBY : 
a a al tees wml 
ee ee ee 5 
ERROR 64. ---NO-<CORRECT ADDRESS ?> jj = — wan eannneeene- 
wee eee ener eee / : GET NEXT 
H TALKER ADDRESS: 
E ae eae 
s GOTO P3 
«STATUS BYTE OK ? >-NO-----SB-ERROR 65 
Y 
E 
S 
i 
[ PENDS ] 


/ VALIO STATUS \ 
< BYTE FOUND ON »>-NO-------- ERROR 66 
\ 8 ADDRESS 2? / 


: SERIAL POLL ; 


SEQ 39 


B4 


SEQ 40 
H 
{ DONS } 
H 
: MASTER CLEAR : 
H 
: SET A TO CACS : 
: SET A TO TACS : 
: SET B TO LACS : 
H 
: GOTO STANDBY : 
H 
[ a ] 
: 

: AND INTERRUPT : 
: FOR NEX : 
$ 
: BYTE TO IOR : 
PoGing es seamen 

ttt eee eee eee > 8 
H 
: fieswovces -neewre \ 
---NO-< INTERRUPT > 
ee 
y 
E€ 
Ss 
:REQUEST SERVICE: 
ame erases 
( POLL4 } 
' 


C4 


: 
: SERIAL POLL: 


: Pune FIRST : 
: TALKER ADDRESS: 


H 
{ P44 } 
$ 
: SEND TALKER: 
: ADDRESS : 
cece panna 
: GOTO STANDBY : 
H 
:GET STATUS BYTE: 
ponte Theme paren 
/ STATUS BYTE i-teinestasenee 
QUAL > -YES--------- < ALL DONE ? >-YES- 
SZEROP FN etter eee eeeee ' 
eeceeceeseoeneeoe 7 o 
H Ny GoTo 
ry 0 PEND4 
: : LEAVE STANDBY : 
6060606866666 05 g 
ERROR 67- --NO-< CORRECT ADDRESS 27> —— -==-s oa reanwehe 
wee tet e eee eeee / : GET NEXT : 
: : TALKER ADDRESS: 
5 ee Sey. PS oe 
$ GOTO P4 


SEQ 41 


eee ee wwe wee eee 


D4 


SEQ 42 


E4 


SEQ 43 

: PUT “O" TO: 
: BUFFER B : 

H 
: ENABLE OMA : 
: FROM B TOA : 
: AND INTERRUPT : 
: FOR BC OVFL : 

. 


: TO BUFFER A 3: 


: BUILD FIRST : 
: TALKER ADDRESS: 


SEND TALKER : 
ADDRESS : 


F4 


: 
: GOTO STANDBY : 
: 
:GET STATUS BYTE: 
: 
/ STATUS BYTE \ Jecccocessececce \ 
<« EQUAL TO >-YES--------- < ALL DONE ? >-YES 
oS i rr - eoccece ; 
‘ N GOTO 
; 0 PENDS 
: : LEAVE STANDBY : 
Soccesai oF gt ine a oe Ensen 
ERROR 70----NO-<CORRECT ADDRESS 2?> jj =  —— «a«2e---------- 
Ne cecceeccceccee / : GET NEXT : 
: : TALKER ADDRESS: 
DS Ps coe “pili 
$ GOTO PS 
fvcownse savewens \ 
<STATUS BYTE OK ? »>-NO----- SB-ERROR 71 
bocstsascceneeoon / 
Y 
E 
s 
¢ 
[ or ] 


< BYTE FOUND ON >-NO-------- ERROR 72 


SEQ 44 


G4 


: GOTO STANDBY : 


[ DONS ] 
; 
Jocccccccceseces \ 
< TEST REPEAT ? »-NO-------- WRITE “END OF TEST” 
Noseeeeceese rons / GOTO TEST SELECT ROUTINE 
Y 
E 
s 
: 
GOTO REP7 


10.0 DIAGNOSTIC MONITOR DESCRIPTION 


ee ee ed 


LOADING PROCEDURE 


BOOT XXDP MEDIA, THEN RUN DIAGNOSTIC WITH FOLLOWING 
COMMAND : 


R ZIEC?? 
NOTE: ?? REFERS TO VERSION AND REV LEVEL. 


STARTING PROCEDURE 
A) USING A PROCESSOR WITH A SWITCH PANEL 


PLACE START ADDRESS INTO —— REGISTER 
CSTART ADDRESS IS 1000 OCTAL 


SEQ 45 


BUSING 


C USING 


A) 


H4 


PRESS “LOAD ADDRESS” SWITCH 
PRESS “START” SWITCH 


PROGRAM SHOULD BEGIN TO PRINT OUT THE IDENTIF ICATION- 
PRINTOUT. 


ALSI11 

TYPE IN START ADDRESS, “G” INTO ONE LINE. 
PRESS “RETURN” -KEY. 

PROGRAM STARTS WITH IDENTIFICATION PRINTOUT. 


A PROCESSOR WITHOUT A CONSOLE 


PRESS “CNTRL” AND “BOOT” BUTTONS. ODT CONSOLE 

ROUTINE PRINTS A $-SIGN. 

TYPE IN “L 1000” AND A <CR>. 

TYPE AFTER THE “$” AN “S”. PROGRAM SHOULD BEGIN TO PRINT 
IDENTIFICATION PRINTOUT. 


OPERATING PROCEDURES 


TO OPERATE AN ERROR SEE UNDER A) 
TO MODIFY A LOCATION SEE UNDER 86) 
TO DUMP A LOCATION SEE UNDER Cc) 
TO ABORT THE RUNNING PROGRAM SEE UNDER 0) 


ALL INPUT/OUPUT OPERATIONS ARE DONE VIA THE DIAGNOSTIC 
MONITOR. NO SWITCH SETTINGS ARE USED. 

ALL COMMANDS, REQUIRED WHEN AN ERROR OCCURS, ARE 
ENTERED VIA THE TERMINAL. 

THESE COMMANDS SET OR CLEAR BITS IN A MEMORY LOCATION 
CALLED PSEUDO-SWITCH REGISTER 

THE FOLLOWING OPTIONS ARE AVAILABLE: 


/HT = HALT AFTER ERROR( DEFAULT) 
/NH . NO HALT AFTER ERROR 

7PR = PRINT ERROR MESSAGE (DEFAULT) 
/NP * NO ERROR PRINTOUT 

/CT ® COUNT ERRORS 

/NC . NO ERROR COUNT (DEFAULT) 

“SC s SCOPE LOOP ON THIS ERROR 

7NS . NO SCOPE LOOP (DEFAULT) 

/CONT «= CONT INUE - SWITCH 


SEQ 46 


oo © @: 6+ ©: GF Gs G+ Gs Ge Ge Ge Ge Ge Gs GF Gs Ge Ge Ge Ge Ge GF GF Ge GH Ge Ge GF Ge Ge GF Ge Gr Ge GF Ge GH Ge GH G+ Ge GF GF & Ge Ge GH Ge Ge GF 


8B) 


14 


WHEN AN ERROR OCCURS, THE FOLLOWING TEXT IS PRINTED: 


ERROR  QOOOXXX 
AT LOCATION: AXKKAKK 
HALT AFTER ERROR... 


THE ERROR NUMBER CAN BE IN THE RANGE 0 - 377. 
THE LOCATION ADDRESS IS ABSOLUTE. 


WHEN AN ERROR IS FOUND, THE PROGRAM IS INTERRUPTED. 

THE ERROR NUMBER, ERROR LOCATION AND PSEUDO STOP MESSAGE 
ARE PRINTED. THEN THE DIGNOSTIC MONITO® WAITS FOR 

INPUT OF OPTIONS. 


PRESS <CNTRL. C> AND THE “PROMPT STRING” IS PRINTED AT 
THE BEGINNING OF A NEW LINE. 


> 


COM 
see (PROGRAM PRINTS WILL BE UNDERLINED FROM NOW) 


NOW YOU CAN SELECT THE OPTIONS YOU NEED TO FIND THE ERROR. 


THE SYNTAX OF A COMMAND LINE IS AS FOLLOWS: 
COM>ERR=/0PT1/0PT2/0PT3/...OPTN/CONT <CR> 


IF THERE IS A ERROR IN THE INPUT LINE THE FOLLOWING 
MESSAGE IS PRINTED: 


SYNTAX ERROR ! 


YOU CAN NOW REPEAT THE INPUT. 


ANY COMBINATION OF OPTIONS IS LEGAL, BUT PROBABLY NOT USEFUL. 


WHEN YOU TYPE /SC/NS THE FIRST OPTION IS 


OVER 
WRITTEN. THE COMMAND LINE IS INTERPRETED FROM LEFT TO RIGHT. 


THE LAST OPTION IN A LINE MUST BE /CONT. 
990890000 000000000000000000000000000000000 


THEN THE MONITOR RETURNS CONTROL TO THE POINT OF PROGRAM 
WHERE THE ERROR WAS ENCOUNTERED AND THF PROGRAM CONTINUES 
WITH THE INPUTED OPTIONS. 


OPTION $ OMP 
THIS OPTION CAN BE USED TO CHECK THE CONTENT OF A 
MEMORY LOCATION OR A REGISTER. 


IT CAN ONLY BE CALLED AFTER AN ERROR OR WHEN YOU INTERRUPTED 


THE RUNNING PROGRAM BY PRESSING “CNTRL C 


SEQ 47 


es Ge Ge Ge Gs 6+ Ge © Ge Ge G8 Se GF Ge Ge oe OF OF © GF OF Gs Ge Ge GF GF GF Ge GF OF GF GF GH Ge Gr GH Ge GH GH Ge GH Ge GH GF GF GH GH GH GH GF OF OF 


C) 


Dd) 


J4 


EXAMPLE: 
AFTER AN ERROR PRINTOUT YOU PRESSED “CNTRL C” AND THE MONITOT 
RETURNED THE PROMPT STRING: 


COM> 


IF vOU WANT TO CHECK LOCATION 1000 AND IT CONTAINS 
E.G. 012767, SO YOU HAVE TO TYPE AFTER THE PROMPT STRING 


COM>DMP 7001000 


AND A RETURN. THE MONITOR WILL PRINT AT THE BEGINNING OF 
THE NEXT LINE THE CONTENT OF LOCATION 1000: 


COM>DMP 7001000 


012767 


THE MONITOR RETURNS NOW INTO ITS WAIT ROUTINE AND WAITS 
FOR FURTHER INPUTS. 


OPTION SET 

THIS OPTION CAN BE USED TO MODIFY THE CONTENT OF A 

MEMORY LOACTION OR OF A REGISTER. 

IT CAN BE CALLED ONLY AFTER AN ERROR OR WHEN YOU INTERRUPT 

THE RUNNING PROGRAM. TO CALL THE MONITOR PRESS “CNTRL C” AND THE 
MONITOR ANSWERS, AS PREVIOUS SEEN, BY PRINTING 


COM> 


IF YOU WANT TO CHANGE LOCATION 1000, YOU HAVE TO 
TYPE ON THE SAME LINE 


CDM>SET/1000/000000 


AND PRESS THE “RETURN” KEY. THE LOCATION CONTAINS NOW 
ZERO. INPUT OF NEW MEMORY LOCATION CONTENT MUST BE SIx 
OCTAL DIGITS LONG WITH LEADING ZERO'S. 


OPTION : ABO 


THIS OPTION CAN BE USED ONLY AFTER AN ERROR OR WHEN YOU 

INTERRUPTED THE RUNNING PROGRAM By PRESSING “CNTRL C” . 

USING THIS OPTION ALLOWS TO ABORT THE PROGRAM AT CURRENT 
POINT OF TEST AND EITHER TO GO TO BEGIN OF TEST , OR IF 

SUPPORTED, TO CALL A SUBTEST. 

AFTER PRESSING “CNTRL C” THE MONITOR RETURNS WITH 


SEQ 48 


-o oF oF G+ Ge GF G+ GF Ge G+ G+ GF Ge oe GF oF Ge 


COM> 


TYPE NOW ON THE SAME LINE 


COM>ABO 


AND THE PROGRAM WILL GO TO BEGIN OF TEST OR TO A 
ROUTINE WHERE yOU CAN SELECT A SUBTEST . 


LISTING 


ereeeote 


K4 


SEQ 49 


.MAIN, 
TABLE OF 


L4 


MACRO M1200 30-MAR-84 16:11 
CONTENTS 
3 LOW -CORE 
$3 INITIALISATION 
103 MEMORY TEST WITH MEMORY MANAGEMENT UNIT SETUP 
215 $..MAP MAPPING ROUTINE 
267 $. EMT 
329 $..TRP 
399 $..I0T 
430 $. .PWR 
482 $. .RSV 
508 $..RRS 
536 $. .KBI 
590 $..INP 
661 $..IAY 
712 $..IAA 
759 $..IAD 
873 $..IAE 
979 $..RED 
1162 $..WRT 
1230 $..KBO 
1252 $. .PRO 
1285 $..STX 
1317 $..OMP 
1418 $..ADP 
1437 $..TOT 
1463 $. .BUF 
2 LOCAL MACRO DEFINITIONS 
77 INPUT PROCEDURE 
175 TEST SELECT ROUTINE 
209 TEST 1: REGISTER STATIC TEST 
268 TEST 2: TALKER AND LISTENER FUNCTION TEST 
379 TEST 3: GENERAL INTERRUPT AND DMA FUNCTION TEST 
651 TEST 4: DMA-TRANSFER FROM B TO A (B IS TALKER) 
766 TEST S: OMA-TRANSFER FROM A TO B (B IS LISTENER) 
847 TEST 6: MATCH CHARACTER REGISTER TEST (8 IS LISTENER) 
919 TEST 7: SERIAL POLL PROCEDURE TEST 
1299 INTERRUPT SERVICE ROUTINES 
1332 CONSTANTS, VARIABLES 
1372 MESSAGES 
1411 STANDARD CSS REGISTER TEST 


SEQ SO 


M4 


TEC11-8 TEST MACRO M1200 30-MAR-84 16:11 PAGE 2 SEQ 51 
A .ENABL AMA 
2 000000 .ENABL ABS 
a LIST ME 
4 .SBTTL LOW -CORE 
5 .MCALL INIT 
6 000000 INIT 


-LIST ME 


COPYRIGHT (C) 1976 
DIGITAL EQUIPMENT CORPORATION, MAYNARD MASSACHUSETTS 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ON A 

SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE 

INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR 
ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE 
MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH 
SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE 
~ py OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT By DIGITAL 
EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPEMENT WHICH IS NOT SUPPLIED By DEC. 


f Cia. Test 


000200 


001000 


N4 
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001000 


001204 


108%: 


-PSECT CSSMON 
MZO01 


THIS CHANGE ALLOWS TO USE A MACRO THAT EITHER CLEARS 
THE PSW BY A “CLR” OR A “MTPS”. 


GSo001 


THIS CHANGE ALLOWS TO START THE PROGRAM AT LOC. 200 


— 
-REPT 4 
.+2 sPOINT TO VECTOR +2 
IoT sMANDLE ILLEGAL TRAP 
.ENOR 1 
$..101 sILLEGAL TRAP-HANDLER 
0 sPRIORITY = O 
$..PWR sPOWERF AIL -RESTART -HANDLER 
0 sPRIORITY = O 
$..EMT EMT -HANOLER 
i?) sPRIORITY = O 
$..TRP 3; TAP -HANDLER 
r¢) sPRIORITY = O 
REPT 30 8 3: #eGSO00Lles 
+2 sPOINTER TO VECTOR +2 3 #eGSO0Les 
IoT sHANDLE ILLEGAL TRAP 3#eGSOO1Les 
.ENOR 3 3#eGSOO1Les 

10$ sINITIALIZE SYSTEM 3*eGSO01Les 
-REPT 137 : 3#eGSOOLes 
-+2 sPOINTER TO VECTOR +2 3#eGSO00O1see 
IoT sHANOLE ILLEGAL TRAP 3#eGSOOLee 
.ENOR ; 3*#*GSOOLes 
JMP START : INITIALIZE SYSTEM 
.REPT 100 

;STACK-AREA 

.ENOR 





T Sus Test 
LOW - CORE 
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012737 
012737 
012737 
012737 
012700 
005020 


020027 
001374 
012737 


012737 
004737 
000414 


012700 
005001 
012737 


012706 
005740 


001204 
001242 
000006 


177776 
177777 
007016 


177560 
000040 


START: 


$..TYP; 
TyP. .E: 


18; 


Mm. .TSE: 


M..SAV: 


MZ001 


SEQ S35 


AS VERY FIRST a en DO A “RESET” TO CLEAR 
ALL HARDWARE THAT IS IN AN UNDEFINED STATE 


. SBTTL 
SET 
MOV 


MOV 
CLR 
CLR 


MOV 


INITIAL ISAT ION 


@START ,SP 
os..TYP,4 
6 


Bers 
@-1.99PTYP 
ssPTYP 


is 
#1000, SCOPAD 


0 
MVERSN 


RO, MEMEND 
> imate ti 


RO 

R1 

RO 

RO 

OCT ,RO 

NO6 

@BIT6, BOTKS 
042 ,8040 
OUTFLG 


.-4 
COM, .E 


1CLEAR THE WORLD 
SETUP SP 
1PREP FoR Test 


11S IT A POP OR ALSI ? 


ry 

sIT IS A POP 
sSKIP LSI PART 
s INDICATE A LSI 


— 
1SE TUuP KE YBOARD vec TOR 


;RESET ALL FLAGS 

i 

i “ 

FY “ 

sIF NO SCOPE LABEL IS SET IN THE PROGRAM 

s THEN GOTO START AFTER ERR=/SC 

sSET PS TO 0 sMZOO1 

sSAY HELLO TO EVERYBODY 

sSETUP INPUT -BUFFER-POINTER 

sCALL MEM. TEST WITH MEM. MANAGEM. SETUP ;88001 


s™Z001 


sGO TO SAVE HIGHEST MEMORY ADORESS 386001 
sHERE IF NO MEMORY MANAGEMENT FOUND 388001 
sSETUP MAXIMUM CORE -ADORESS 

sSETUP FOR MEMEND-2 FOR UNMAPPED PROC. ;88001 
sSETUP TRAPHANODL ING 

sREBUILD STACKPOINTER 

sTOP OF CORE? 

sREBVILD TRAP TO 4 VECTOR 

sHERE IF HIGHEST MEMORY ADORESS FOUND ;88001 
sSAVE HIGHEST MEMORY ADOR. 

sSAVE EXTENSION BITS 

sPUT ADDRI6 INTO CARRY 388001 
;ROTATE ADOR16 INTO MSB OF RO 388001 
sPUT ADOR17 INTO CARRY 388001 
sROTATE + sah INTO MSB OF RO 388001 


sRPESET CARR 388001 
sSHIFT OUT THE LS-OCT-OIGIT OF PHYS ADDR ;88001 
sOUMP ADDRESS 


;PRINT LS-OCT-DIGIT ALWAYS AS “6” 388001 
sENABLE TTY INTERRUPTS 

sPREP THIS LOCATION FOR USING AxDP 
sSYNCHRONISE OUTPUT 

1” 

+ NOW WE ARE ON THE AIR 


AE Aba O26? rn ERG RY ARRaceMENPRUAS 1 Ge tap PAGE S 


012737 
0050 


012716 
042737 
000422 


012737 
012737 


001374 
00000 


160000 


000252 


C5 


SEQ 54 


-SBTTL MEMORY TEST WITH MEMORY MANAGEMENT UNIT SETUP 
st SUBROUTINE: M..TST 


o 
s THIS “ety CHECKS THE AVAILABILITY OF A MEMORY MANAGEMENT UNIT 
1 PROCESSORS AND SETS KISARO...KISARS TO THE LOW 24K -WORDS 
sOF THE “COMPUTER MEMORY 
iKISAR? IS USED TO MAP THE SO-CALLED 1/0 PAGE . 
sKISARG IS USED TO MAP THE HIGHEST MEMORY ADDRESS CHECK POINTER . 


’ 
s INPUT: 


(SP) *RETURN ADDRESS 
8 
sOUTPUT: RO *LOW 16 ADORESS BITS OF HIGHEST MEMORY ADDRESS 
: Ri “BITS 0,1 ADORESS BITS 16,17 
3 
s AUTHOR : BERNHARD BAUDISCH CSS/DP MUNICH 19-DEC-78 
3 
8 
M..TST: sREFERENCE LABEL 
000250 a om, . TRP 80250 sSETUP SEGMENTATION TRAP CATCHER 
L Bees 
000004 on om. . TRP, 904 ewe TRAP -4 CATCHER 
CALL 4. MMM + SETUP DEFAULT MAPPING,ENABSLE MM 
172354 Ov #7400 ,KISAR6 sMAP WITH KISARG6 THROUGH MEMORY 
007020 MOV @1,$smMTYP sREMEMBER THAT WE HAVE MEMORY MANAGEMENT! 
MOV @157776,R0 3GET HIGHEST ADORESS WITHIN APR6 RANGE 
000004 MOV om, .HIM, 804 sSET UP TRAP 4 CATCHER 
208: TST sSEE IF ADORESS PRESENT 
Bcc M..0ET 3sCC IF ADORESS F 
172354 suB #200 ,KISAR6 MAP TO NEXT LOWER 4K WORD BANK 
BLT 308 sTHIS CASE SHOULD NEVER HAPPEN 
68R 208 sCHECK NEXT LOWER 4-K WORDS 
30%: sHERE ONLY IF MAIN PROCESSOR HARDWARE ERROR 
PSET 0 1SET PRIORITY TO O 
WRITE MEMDEF sMEMORY MANAGEMENT DEFECT 
MOV om. . TSE .( SP) sMODIFY RETURN ADORESS TO UNMAPPED SYSTEM 
177572 BIC @BITO,SRO sOISABLE MM 
68R M,.RET GO AHEAD LIKE UNMAPPED SYSTEM 
M..OET: sMIGHEST MEMORY ADORESS FOUND 
=. poems 3sGET MAP REGISTER CONTENTS 
7 r 
.o (SP) sPUT ADORESS BIT 17 INTO PSw CARRY 
. 3 
ecs 40% 3CS IF ADDRESS BIT 17 SET 
CLR R1 sMERE IF BIT17 NOT SET 
BR 453 Baws 
403: MOV OBITO,R1 as BIT 17 FOUND 
453: ASL (SP) 3GET ADDRESS BIT 16 
ROL R1 V INSERT BIT IN MEMORY EXTENSION MASK 
BIC #160000 ,RO sMASK OUT APR SELECTION BITS 
BIS RO, (SP) sBUILD 16 BIT BASE ADDRESS 
MOV (SP), RO 3-->RO FOR OUTPUT TO CALLER 
000250 M,.RET: MOV 0252, 80250 sRESET SEGMENTATION TRAP CATCHER 
000252 MOV 04 ,80252 Sines 
000004 MOV e sRESET TRAP-4 CATCHER 


AERA iO rE EF rte AERB RY ARRacERENP URE r Bethe PACE 5-1 


012737 
000207 
012716 
000760 


052766 
000002 


000137 


0013574 


001760 


007600 
000001 


000006 


177572 


R 
U..DET;: 


Mm, HIM: 


TRP; 


DS 


04,806 
Pc 


ns. (SP) 


@BITO,2¢SP) 


(SP )+, CSP )> 
(SP )> 
UU. .DET 


SUBROUTINE M, .MMM 


THIS ROUTINE IS CALLED TO SET UP THE APR AND POR 


REGISTER WITH DEFAULT VALUES AND 
MANAGE 


ve tun TO CALL 
MERE IF ME 


MORY MANAGEMENT ADDRESS NOT FOUND 
ADDRESS 


;MOO IF Y RE TURN 
sRETURN COMMON 


sTRAP-4 AND ee he ie CATCHER 


ER 


iSET CARRY IN RETURN P 


}RE TURN WITH CARRY SET INDICATOR 


sCLEAN STACK OF INT. VALUES 


sCLEAN STACK FROM RETURN 


ADORE SS 
sNO MEMORY MANAGEMENT UNIT AVAILABLE 


1GET PAGE vu-~ tw REGISTER SETUP 


00 
ADORE SS 


TO I/0 PAGE 
MANAGEMENT 


APRO IS PRESE ate 

APR1 wi 200 

APR2Q a 400 

APR7 ° 7600 

mM IS ENABLED 

RO,R1,R2 3 SAVE 

#77406 ,R0 

08. .R1i sSETUP FOR 8 

@#KISORO,R2 3GET KISORO ADDRESS 

RO,(R2)> sSETUP NEXT POR 
1 sCOUNT SETUPS 
os sNE IF MORE TO 

@KISARO,R2 sGET KISAR BASE 

CR2)> sSETUP KISAR O 

@200,(R2)+ sSETUP KISAR 1 

0400,(R2)> sSETUP KISAR 2 

#600 ,(R2)> sSETUP KISAR 3 

#1000, (R2)> sSETUP KISAR 4 

1200,(R2)> sSETUP KISAR 5 

@1400,(R2)> sSETUP KISAR 6 

©7600, 8R2 sSETUP KISAR 7 

oBITO,SRO sENABLE MEMORY 

R2,R1,RO sRESTORE REGS. 


sBACK TO CALLER 


$..MAP MAPPING ROUTINE 


SEQ SS 


FECA eB eins ROOT the 200 50-MAR -84 16:11 PAGE 6 


000003 
000137 
004737 
013700 
000006 


042700 
013701 
000012 


060001 
042737 
020166 
002023 
052700 


000403 
016637 


012616 
000207 


177776 


000006 172354 


~ 
°o 
ae 


. 
ee 


SUBROUTINE ; 


INPUT: 


2 
4(SP) 


Seal 


(SP) 
(SP) 


THIS ae IS USED TO MAP WITH APR6 TO THE PHYSICAL MEMORY 
ABOVE 28. K AND COMPARE OMA READ AND WRITE DATA 


*RETURN ADDRESS 
#100 OCTAL BYTE BLOCK OFFSET 
“MAPPING POINTER 


OUTPUT: KERNEL APRG IS MAPPED TO BUFFER START ADDRESS 
MAPPING POINTER IS SET TO BASE ADORESS OF APR6=140000 


CARRY IS SET IF NO MEMORY AVAILABLE 


BREAKPOINT TRAP, IF YOU TRY TO MAP TO COM (0-4.K) 
AUTHOR: ALBERT BREM CSS MUC 16-JAN-79 


es 

6( SP) ,.KISAR6 
R1,RO 

(SP)+, (SP) 


VE REGISTERS 


PUSH RO,R1 
Or 6(SP) GE #200 GOTO 103 ;DONT MAP TO SYSTEM AREA 


9 eae TO SYSTEM AREA 

é 

sENABLE MM,SETUP DEFAULT MAPPING 
sSAVE HIGHEST MEMORY LOCATION 


sCOMPUTE 100 OCTAL BYTE BLOCKS 


g* 
sSAVE MEMORY EXTENSION 
sCOMPUTE ADDITIONAL BLOCKS 


3s TOTAL nee OF 32.WORDS MEMORY 
sCLEAR CARR 

_ AVAILABLE? 

sv 

sSAVE CURRENT PSw 

sSET CARRY FOR ERROR INDICATION 


‘ 

sDONT TOUCH APRE 

sMAP TO BUFFER AREA 
sRESTORE REGISTERS 
sCLEAN STACK OF ARGUMENT 
sBACK TO CALLER 


SEQ 56 


FS 


TEST MACRO M1200 30-MAR-84 16:11 PAGE 7 SEQ 57 


-SBTTL $..EMT 
SUBROUTINE: &..EMT 


sTHIS ROUTINE HANDLES ALL EMT-TRAPS THAT MIGHT OCCUR 
+IN A DIAGNOSTIC PROGRAM, AND DIRECTS THE PROGRAM TO 
sCONTINUE AT THE APPROPRIATE FUNCTION SUBROUTINES. 


a 

INPUT: 2(SP) = PS 

3 (SP) = PC 

;OUTPUT: NONE 

’ 

; AUTHOR : BERT HUBER CSS/DP MUNICH 14-JULI-76 

; 

e LsB 
002326 012746 177776 $..€MT: MOV @-2, -(SP) REBUILD , EMT -ADOR. 
002332 066616 000002 ADO 2(SP), (SP) 
002336 017616 000000 MOV @(SP).(SP) tCET ENT-CODE 
002342 042716 177400 BIC @177400,(SP)  ,EXTRACT EMT-NR. 
002346 006316 ASL (SP) sCONVERT TO TABLE -OFFSET 
002350 021627 000004 CMe (SP), OEMTTND-EMTTBL -2; VALID EMT-NR. ? 
002354 101413 BLOS ssi 8 sIF LOS, YES 
002356 WRITE MILEMT ;ILLEGAL EMT 
002366 DUMP sO, (SP) : 
002400 000137 001000 SMP 901000 }RESTART PROGRAM 
062716 002416 1s: ADO OEMTTBL (SP) sGer FUCTION CODE ADOR. 

002410 017616 000000 MOV a sP), (SP) 


296 002414 000136 JMP ac SP)s VENTER FICTION SUBROUTINE 


002416 002424 EMTTBL: EMTO 
002420 002432 EMT1 
002422 002470 EMT? 
002424 EMTTNOD: 


Q 

sSUBROUTINE TO SAVE SCOPE -LOOP ADDR. 

é 
002424 011637 007172 EMTO: MOV (SP), SCOPAD sSAVE ADOR. OF SCOPE -LOOP 
002430 000002 RTI sRETURN TO CALLER 


; SUBROUT INE TO SETUP A VECTOR 


é 
309 002432 017646 000010 EMT1: MOV @10(SP),-(SP) ;GET POINTER TO VECTOR ADOR. 


002436 016676 000010 000000 MOV 10( SP), @( SP) sSETUP VECTOR 
002444 062716 000002 ADD #2,(SP) sPOINT TO NEW PS 
002450 016636 000006 MOV 6( SP), @(SP)> sSETUP NEW PS 
002454 012666 000004 MOV (SP )+,4(SP) s;CLEAN UP STACK 
002460 012666 000004 MOV (SP )+,4(SP) : » 

002464 005726 TST (SP )+ ‘ “ 

002466 000002 RTI sRETURN TO CALLER 


: 
; SUBROUTINE TO RESET A VECTOR 
3 
002470 017646 000004 EMT2: MOV @4(SP), -(SP) sGET ane te TO VECTOR A 
002474 011646 MOV (SP), -(SP) sOUPL ICAT 
002476 062716 000002 ADO @2,(SP) sBUILD ADDRESS OF VECTOR 


002502 012636 MOV (SP)+,@(SP)-> sRESET VECTOR 


FECA 8 TEST MACRO M1200 30-MAR-64 16:11 PAGE 7-1 SEQ Sé 
324 002504 012776 000004 177774 MOV 04 ,8-4(SP) sRESET VECTOR +2 
325 002512 016666 000002 000004 MOV 2(SP),4(SP) sCLEAN STACK 
012616 MOV (SP )+, (SP) = 


326 002520 . 
327 002522 000002 RTI sRETURN TO CALLER 


TEST 


MACRO M1200 30-MAR-64 16:11 PAGE 6 


011637 
032737 
001022 


032737 
001004 


177776 
000002 
000000 
177400 
007166 
007160 


007166 


007166 
040000 


010000 


010000 


007160 


007160 


007160 
007160 
007160 


007160 


-SBTTL $..TRP 
INE: $.. TRP 


THIS ROUTINE HANOLES 
OCCUR _IN A CSS-DIGNOSTIC PROGR 


AS THE TRAP INSTRUCTION IN THIS ge to - Is way USED TO 
INDICATE AN ERROR CONDITION, THIS TRAP-HANDLER IS 


ALL } nat By LOC 34 THAT MIGHT 


A (PSEUDO-) 


SWITCH-REGISTER CONTROLLED ERROR HANDLER. FOR THE DEFINITION 


OF ALL AVAILABLE ‘SWITCH’ -OPTIONS, REFER TO SUBROUTINE “S$. 


LATER IN THIS LISTING. 
INPUT: 2acsP)>)* 


PS 


(SP) _ s PC 
LOW ORDER BYTE OF TRAP INSTRUCTION = ERROR NUMBER 


OUTPUT: 
AUTHOR : 
3.PSECT CSSMON 
-ENABL LSB 
..TRP; MOV @-2, -(SP) 
ADO 2(SP),(SP) 
MOV aC SP), CSP) 
BIC @177400,(SP) 
TST $..ER 
BEQ 2s 
TsTt PSOSWR 
BPL 38 
chp (SP),$..ER 
BEQ 
WRITE MILSCP 
Oct .,.2¢SP) 
GOTO START 
2s: MOV (SP),$..ER 
38: BIT | + (alee teams 
WRITE MERROR 
DEC, (SP) 
WRITE MERRPO 
DUMP oct ,2¢sP) 
4%: BIT @B1T13,PSOSWR 
B8EQ 58 
INC > eat 
WRITE MERCOV 
OuMP DEC ,( SP) 
S$: 3 eertia, PSOSWR 
BIT ®61T15,PSDSUR 
BNE 6% 
BIT ee 
WRITE MERHLT 
6%: BIT @BIT12,PSO0SWR 
BNE 7% 


DEPENDING ON OPTIONS SELECTED 
BERT MUBER, CSS/DP MUNICH 


14-JA - 76 


‘weoee.. TRAP ADORE SS 


iGET TRAP CODE 

sEXTRACT ERROR NUMBER 
sFIRST ERROR OCCURENCE ? 
sIF EQ, FIRST PASS 
sSCOPE LOOP ? 


sSAME SCOPE LOOP ? 

sIF EQ, YES 

sILLEGAL SCOPE LOOP 

sOUMP ADDRESS OF ERROR +2 
sRESTART PROGRAM 


sSTORE ERROR NUMBER 

s INHIBIT PRINTOUT ? 

sIF NE, YES 

sPRINT ERROR MESSAGE PART 1 
s0UMP ERROR NUMBER 

sPRINT ERROR MESSAGE PART 2 
;0UMP ERROR PC -2 

sCOUNT ERRORS ? 

IF EQ, NO 

sCOUNT ! 

tIF EQ, OVERFLOW 

sERROR COUNTER OVERFLOW 
s0UMP ERROR NUMBER 

SPRINT ?? 

3IF NE, NO 

sSCOPE LOOP ? 


3IF SCOPE, NO PRINT 

sHALT AFTER ERROR SELECTED 
3IF NE. YES 

3STOP MESSAGE 

sHALT ? 

,IF EG, YES 


. IAE” 


SEQ 59 
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004000 007160 


004000 007160 7%: 
007160 


004130 
007166 


000002 


(SP )- 
02, (SP) 


IS 


———— 
#68IT11,PSOSWR 
PSOSUR 


SEQ 60 


s IMMEDIATE CONTINUE ? 
sIF NEVES 
sSCOPE LOOP ? 


8 

IF PL, NO 

sADJUST STACKPOINTER 
sENTER SCOPE LOOP 


ACK 
:BUILD RETURN ADDRESS 
sRETURN TO CALLER 


J5 
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399 -SBTTL $..IOT 
400 ie 
401 s SUBROUTINE : $..I07 
pos g teeeeeessess seeses- 
3 
re + THIS SUBROUTINE HANDLES ILLEGAL TRAPS OR INTERRUPTS. 
b 
406 3; IF SUCH A TRAP OR INTERRUPT OCCURS, A MESSAGE IS 
407 3 PRINTED, SHOWING THE VECTOR TRAPPED TO, AND THE PROGRAMS PC 
408 ; WHERE If WAS INTERRUPTED. 
ro ; THE PROGRAM HALTS THEN, AND MUST BE RESTARTED. 
a 
411 3 INPUT: 6( SP) . PS OF PROGRAM 
412 3 4(SP) . PC OF PROGRAM 
413 ’ 2(SP) . PS OF VECTOR 
rt 3 (SP) * PC OF VECTOR +2 
3 
an? 3 OUTPUT: MESSAGE TO THE OPERATOR 
Q 
aus 3 AUTHOR: BERT HUBER, CSS/DP MUNICH 22-JUL-76 
ge 
420 3.PSECT CSSMON 
421 -ENABL LSB 
422 003056 $..I0T: WRITE MILTR1 3SEND FIRST MESSAGE PART 
423 003066 162716 000002 SUB @2,(SP) sCOMPUTE VECTOR 
424 003072 DUMP OcT,(SP) sOUMP VECTOR ADDRESS 
425 003102 WRITE MILTR2 sSEND SECOND MESSAGE PART 
426 003112 DUMP OCT ,4(SP) sOUMP PROGRAM PC 
427 003124 000777 BR sHANG UP SYSTEM 


428 .OSABL LSB 


TEST 
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013727 
000000 


005737 
001375 


013737 
005737 
001411 
013737 


112737 
005737 
001407 


013737 
000002 


003172 
007152 


007150 


177777 
003144 
007152 
007150 
003126 


005700 


007152 


003160 
007152 
003246 
000012 
003166 


003166 


000024 


007152 


005700 
177566 


007150 


KS 


SEQ 62 


- SBTTL 
; 
3 SUBROUTINE : 


‘ 

3 THIS et g- IS DIRECTLY ENTERED AFTER EACH POWER-FAIL TO 

sHANOLE THE NECESSARY REGISTER SAVE OPERATIONS, AND IS USED 

VAFTER THE POWER-UP INTERRUPT TO RESTORE THE SAVED REGISTERS 

sAFTER A SUCCESFULL POWER-FAIL RESTART, A SHORT MESSAGEW IS PRINTED. 


3 
3; AUTHOR: BERT HUBER, CSS/DP MUNICH 27-JULY-76 
3 MZOO1 SAVE THE OUTFLAG IN 3% AND RESTORE IT 
; ssess AFTER PRINTOUT OF THE POWERFAIL MESSAGE 
ge 
;.PSECT CSSMON 
-ENABL LSB 
$..PWR: PUSH RO,R1,R2,R3,R4,RS 
MOV SP.(PC)> sSAVE STACK -POINTER 
1%: . WORD 0 3: STACKPOINTER - SAVE - AREA 
MOV 02% ,8024 ;SETUP VECTOR FOR RESTART 
MOV OUTFLG,(PC)>+ sSAVE PRINT FLAG 3@Z001 
3$: -WORD O SAVE FOR FLAG ;MZOO 
MOV INFLAG,(PC)>+ sSAVE INPUT FL 
S$: -WORDB O ;SAVE WORD FOR INPUT FLAG 
BR . ;WAIT FOR POWER 
2s: CLR R2 ;DELAI 
INC R2 3 THE 
CMP R2,0177777 sPOWER UP START 
BNE .-6 sFOR 1SECOND 
MOV 1$,SP sREBUILD STACKPOINTER 
CLR OUTFLG rALLOW PRINTOUT OF PWFRL MES. 3MZOO1 
CLR INFLAG 
MOV o¢$. .PWR,8024 ;REBUILD VECTOR SETUP 
POP RS, R4, R3, R2,R1,RO 
MOV $. "MSP, (PC) sSAVE OLD MESSAGE POINTER 
8$: ‘ 0 sSAVE WORD FOR OLD MESSAGE POINTER 
WRITE MPWRFL 3SEND POWER -F AIL -MESSAGE 3MZOO1 
4$: TST OUTFLG sWAIT FOR OUTPUT COMPLETE sMZOO1L 
BNE 4$ 3 3MZ001 
SET6 TKS ;ENABLE FURTHER TTY-INTERRUPTS 
MOV 3$,OUTFLG sRESTORE FLAG IF IT WAS SET 3MZOO1 
Mo - (la 3IF AN OUTPUT BEFORE PWRFL WAS RUNNING 
$ 
MOV 8$,%..MSP 3 THEN RESTORE OLD MESSAGE POINTER 
SET6 aeTPS sAND ENABLE INT IN TPS 
MOvVB #12, 90TPB 3AND START INTERRUPT 
7$: TsT 53% 3IF AN INP FLG BEFORE PWRFL WAS NOT SET 
BEQ 6$ ;GOTO 6% 
WRITE PROMES ;ELSE WRITE >» 
MOV 5$,INFLAG sRESTORE INPUT FLAG IF IT WAS SET 
6%: RTI sCONTINUE WITH PROGRAM 
.OSABL LSB 
S6TTL $..RSV 
s* 
3 SUBROUTINE: $. .RSV 


FECAaYS 
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003360 
003374 000176 000014 


3.PSECT CSSMON 
NABL L 


a. 


THIS ROUTINE SAVES RO-RS ONTO THE STACK 


a 

3 

i 

s INPUT; (SP) e CALLER PC 

; 

3 OUTPUT: (SP) = RS CONTENT 
; 2csP) = R4 CONTENT 
; 4(SP) = R3 CONTENT 
‘ 6(SP) = R2 CONTENT 
; 10(SP) = Ri CONTENT 
; 12(SP) = RO CONTENT 
; 14(SP) = CALLER PC 

; 

3 AUTHOR: BERT HUBER, CSS/DP MUNICH 

; 


SB 
Ou RSV: PUSH RO,R1,R2,R3,R4,RS 
sRETURN TO CALLER 


JMP @14(SP) 


-DSABL LSB 


12-APR - 76 


SEQ 63 


MS 
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508 -SBTTL $..RRS 
509 3° 
510 3; SUBROUTINE: $. .RRS 
+4! g @8eeneesace sesene 
3 
Sia ; THIS SUBROUTINE RESTORES RS-RO FROM THE STACK 
3 
515 3 INPUT; (SP) = CALLER PC 
516 3 2csP) = SAVED RS 
517 8 4(SP) = SAVED R4& 
518 3 6(SP) «= SAVED R3 
519 3 10(SP) = SAVED R2 
520 F 12(SP) = SAVED R1 
521 3 14(SP) = SAVED RO 
ase ; 16(SP) = OLD CALLER PC 
a 
x4 3 OUTPUT: REGISTERS ARE RESTORED AND STACK IS CLEANED 
4 
ass 3 AUTHOR: BERT HUBER, CSS/DP MUNICH 12-APR-76 
a 
528 3;.PSECT CSSMON 
S29 -ENABL LSB 
530 003400 005726 $..RRS: TST (SP )+ sPOINT TO SAVED RS 
531 003402 POP R5,R4,R3,R2,R1,RO0 
532 003416 005726 TST (SP )-+ sSKIP OLD CALLER PC 
533 003420 000176 177760 JMP 8-20( SP) sRETURN TO CALLER 


534 -DSABL LSB 


TEC11-8 
I 


Test 


NS 
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007777 


177560 


007170 


. LSB 
$..KBI: TST OUTFLG 


-SBTTL $..KBI 


* 
SUBROUTINE: $&%..KBI 


THIS ROUTINE IS ENTERED IMMEDIATELY AFTER AN INTERRUPT 
FROM TTY-KEYBOARD. ALL REGISTERS ARE SAVED ACROSS CALL. 


INPUT: 2(SP)= PS 
(sP> = PC 
OUTPUT: NONE 
AUTHOR ; BERT HUBER, CSS/DP MUNICH 5S-APR-76 


;.PSECT CSSMON 
ENABL 
33 ;OUTPUT RUNNING ? 


BEQ 4s 44> 4 NE, IGNORE INTERRUPT 
PUSH RO 3 SAVE 

CLR BeTKS ii: INHIBIT INTERRUPT 

MOV @eTKB,RO 333GET CHARACTER 

MOV #100, ,aeTKS 3 sRE -ENABLE 

BIC #200 ,RO 33sMASK OUT ASCII 

CMP @3,RO0 333 IS IT <CNTRL C> ? 

BNE 13$ s331F RETURN 


MOV 07777,SPEFLG 13ST A SPECIAL FLAG 
sssTHIS FLAG IS USED TO FINISH 


333A RUNNING PRINTOUT AND THEN TO 
33 ;REMEMBER THAT <CNTRL C> WAS HIT 


13$: POP RO 33 sREBUILD 
BR 3$ 333 RETURN TO CALLER 
4$: CALL $. .RSV 


+ te ALL —— 
MOV @eTKB ,RO 333;GET T BYT 

33;BUILD REAL ASCII 
333<CNTRL C> FUNCTION ? 
BNE 1$ ss3IF NE, 


$$SPE; 
CALL $..PRO 333SEND PROMPT STRING 
es 33 3RET 
1$: TST INFLAG 333 INPUT FLAG SET ? 
BEQ 2s s33IF EQ, NO 
5$: CALL $.. INP 33:3PROCESS INPUT 
CMP RO,@15 333WAS IT A <CR> ? 
BNE es 333IF NE, NO 
CLR INFLAG 333RESET INPUT MODE FLAG 
MOV #KBBUFF ,R1 > rs BUFFER POINTER 
MOV R1,KBBPNT 
CALL $..IAy LT ANALYZE INPUT 
2s: CALL $..RRS 33sRESTORE REGISTERS 
3$: RTI 333sRETURN TO CALLER 


-DOSABL LSB 


SEQ 65 


ie 


Tes! 
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013701 


-SBTTL 


‘ 
sTHIS SUBROUTINE I 


}AND LAT 


RUBOUT 
FALL OTHER INPUT IS HANDLED AS NORMAL ASCI-TEXT AND STORED 


$.. INP 
$. . INP 


<CNTRL U> FOR LINE 
<DELETE> FOR CHARACTER 


B6 


sIN THE KEYBOARD INPUT BUFFER, 


’ 
s INPUT: 
ry 


3 
sOUTPUT: 


i 
s AUTHOR; 
t- 


8 
$.. INP; 


18%: 
2s: 


5$; 


(SP) . 
RO 


S THE INPUT-HANOLER FOR ALL TERMINALS 
sUSED 7. as CSS-MUNICH DIAGNOSTIC SOFTWARE GENERATED NOW 


a THE SPEC TAL FUCTIONS HANDLED es THIS ROUTINE ARE: 


CALLER PC 
CURRENT INPUT CHARACTER 


BERT HUBER CSS/DP MUNICH 


/V1.0/ 
CSSMON 


333GET CURRENT BUFFER -POINTER 
s3sPOINT TO KEYBOARD -ECHO 
333 INPUT-BUFFER FULL? 
sasIF NE, NO 
ss3<CNTRL U>? 
sesIF EQ, YES. 
333<OELETE>? 
sssIF EQ, VES. 
sssRESET INPUTFLAG 
sssPRINT OVERFLOW-MESS. 
333PROMPT FOR INPUT 
s3s<CNTL U>? 
so3sIF NE, NO 
re a<DELETE>? 


sasIF NE, NO 


sssFIRST RUBOUT? 


sssPRINT “7” 


a3 ~ 

sesFULL LINE DELETED? 

sesIF EQ, YES 

NO, REMOVE CHARACTER 

333AND ECHO IT 

sssWAIT FOR NEXT INPUT 

s3sRUBOUT MODE? 

sesIF EQ, NO 

33sVYES, SAVE CURRENT INPUT 
RUBOUT 


833 
s3sECHO “7” 


3s sRESET RUBOUT MODE FLAG 
333GET os ees INPUT AGAIN 


sssECHO I 


SEQ 66 


TEC11 -6 TEST 
$.. INP 


647 003742 
648 003744 
649 003746 
650 003752 
651 005754 
652 003760 
653 003762 
654 003766 
655 003772 
656 003776 
657 004002 
658 004006 
659 
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110021 “OvVB 
000414 BR 
012700 0001356 63: MOV 
004712 CALL 
012700 000125 MOV 
004712 CALL 
005037 007162 CLR 
012701 007026 78: 
004737 006156 CALL 
010137 007146 INP. .E: MOV 
116100 177777 

RE TURN 


Ri, KBBPNT 
-1€R1),RO 


LSB 


SEQ 67 


s3sSAVE IN IPUT BUFFER 
sesWAIT FOR NEXT INPUT 
sssECHO “*” 


sa8 

s3sECHO “U”" 

aus s 

assLEAVE RUBOUT MODE 

se sRESET INPUT BUFFER POINTER 
sas FOR INPUT 

133sSAVE POINTER 


33sSAVE LAST CHARACTER 
ss sRETURN TO CALLER 


F€C4,,8 


Test 
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122711 
440 


-HANODL ING 
FOR CORE -DUMP OPTIONS 
DEBUGGING OPTIONS 


D6 


FOR 
NONF ORMATTED INPUT FOR SPECIAL REQ. 


BERT HUBER, CSS/DP MUNICH 


.SBTTL $..IAY 
3° 
3 SUBROUTINE : $..IAy 
geeeeceecese seeeee 
’ 
sLEGAL INPUT TYPES ARE: 
ry 
’ ERR. 
’ arte 
> 
4 
3 
sINPUT: (SP)=« RETURN PC 
;OUTPUT: NONE 
: 
s AUTHOR; 
t 
3.PSECT CSSMON 
-ENABL LSB 
$..IAY: CMPB #15,(R1) 
BEQ  : 
38; TST $. SASF 
BNE IAY. .€ 
CMPB @'0,(R1) 
BNE 
CALL $. . IAD 
BP TAY, .€ 
18: CMPB o'S.@R1 
BNE $ 
CALL $..Ias 
BR IAY..€ 
2s; CMPB o’'E,aR1 
BNE 
CALL $..IAE 
BR IAY..€ 
4$: CMPB @’'A,@R1 
BNE 53 
CALL $..IAA 
BR IAyY. .€ 
S$: TST I Q 
BNE IAY..€ 
CALL $..STX 
IAY..E: RETURN 
OSABL LSB 


ssIF NE, 


sssANALYZE SET REQUEST 
333RETURN TO CALLER 
333 “ERR” -REQUEST? 


sasIF NE, 


333ANALYZE ERROR REQUEST 
33sRETURN TO CALLER 
333 "ABO” REQUESTED ? 


s3sIF NE, NO 


33 sANAL YZE TY 
33sRETURN TO CALLE 
333NO SYNTAX ERROR. IF SPECIAL INPUT RUNNING 


833 
333 SYNTAX -ERROR 
333RETURN TO CALLER 


26-JUN 76 


QUEST 
333'SET” REQUESTED? 


E6 
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: 
707 : 
708 ; 
709 ’ 
710 H 
711 : 
712 -SBTTL $&..IAA 
7138 se 
714 3 SUBROUTINE: $.. IAA 
715 geeeeeseease eseses 
716 : 
A 34 sLEGAL INPUT IS “ABO” 
3 
719 F INPUT: NONE 
a : OUTPUT: IF IN THE PROGRM THE 
3 
722 3 THIS LABEL IN 
723 3 
724 8 
725 3 IS PERFORMED. 
726 8 MZOO1 
727 3 seace 
728 : 
729 3 OR ON LSI. 
730 F 
731 3 
Le | 3; AUTHOR; mM. ZILLER, 
ge 
734 3.PSECT CSSMON 
735 -ENABL LSB 
736 004120 000005 $.. IAA: RESET 
737 004122 SET6 @eTKS 
738 004130 012706 001204 MOV @START,SP 
739 -IF OF $..SPC 
740 004134 012746 012010 MOV @¢..SPC,-(SP) 
741 -ENOC 
742 -IF NOF $..SPC 
743 MOV @COM. .E,-(SP) 
744 ~ENOC 
745 004140 PSET @0 
746 004164 012700 007026 MOV OKBBUFF ,RO 
747 004170 005020 1$: CLR CRO)> 3 
748 004172 020027 007202 CMP RO, @PROMES 
749 004176 001374 BNE 1$ 
750 004200 012737 007026 007146 MOV OKBBUFF ,KBBPNT 
751 004206 RETURN 


SEQ 69 


ME LABEL “"S$. Ss Is yaee. 


THE STACK WILL BE INITIALIZED AND A JUMP TO 

THE DEVICE TEST PROGRAM IS PERFORMED. 
IF THIS LABEL IS NOT USED, THE STACK IS INITIALIZED 
AND A JUMP TO THE BEGIN OF THE DEVICE-TEST PROGRAM 


THE MACRO “PSET”ALLOWS TO RUN THE COM EITHER ON POP 


CSS/0P MUNICH OCT. 1976 


rr ANY ACTIONS 
SWITCH ON TTY-INT. 
tINITIALTZE STACK 


sSET THE LABEL “”$..SPC”” FOR DESTINATION 


sSET END OF MONITOR FOR DESTINATION 


sCLEAR PS 3MZ001 
sRESET BUFFERS 


é 
sREBUILD BEGIN ADDRESS 
sGOTO POINT OF CONTINUATION 


TEC11 -6 


Test 
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177566 


+.PSECT CSSMON 


. SBTTL 
: 
s SUBROUTINE 


MZ001 


MODIFICATION TO ALLOW THE <CR> AFTER INPUT 
TO COMPLETE. 


A) 
8) 


sINPUT : 
sOUTPUT : 


; 
s AUTHOR : 


$.. IAD: 


$..IA0 


F6 


: $..IAD 


THIS SUBROUTINE IS ENTERED WHEN A DUMP-REQUEST IS ANALYZED. 
DEPENDING ON HOW THE REQUEST IS TERMINATED, THERE ARE TwO 
WAYS FOR RETURN: 


WHEN TERMINATED BY <CR> THE CONTENT OF A LOCATION IS 


PRINTED AND THE 


RETURN IS PERFORMED 


WHEN INPUT IS TERMINATED BY A “”/”““THE MONITOR WAITS 


FOR INPUT AND LOADS THIS INPUT INTO THE EXAMINED LOCATION. 


(SP) *RETURN ADORESS 
MODIFIED LOCATION IF REQUESTED 


Mm, ZILLER, SS/DP MUNICH 


CSSMON 
LSB 


R1 
(R1)+,0'M 
CR1L)+,0'P 
778% 


OCTOBER 1976 


TO “mM” 

31S If A “—M" 

sNO IF NE 

sIS IT A “P” 

3sNO IF NE 
A ose 


3NO IF NE 

sRETRIEFE INPUT 

3IS CS, INPUT FORMAT ERROR 

3IS THE <CR> FINISHED ? ;MZOO1L 


3 sMZOO1 
sPRINT A <LF 


sDONE ? 
sWAIT FOR COMLETION 
sANO PRINT 
3GO TO ENO 
sWRITE SYNTAX ERROR MESSAGE 
sRETURN TO MAIN 


SEQ 70 


Bc thoe 


607 


Test 
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000015 


THIS IS THE ROUTINE GET THE OCTAL VALUE OF THE ADDRESS 


CLR 


3° 
3 SUBROUTINE: 


o 
s;THIS SUBROUTINE IS ENTERED IF THE INPUT ANALYZER DETECTS A SET-COMMAND 


| IAS: 


INPUT: 


OUTPUT: 


$2833 
— a 
*e@ 

=- & 

- pe 

~ w 


i 

2 . 2 

238m 
~ 


eZ 
= 
. 
o 
ad Ay 


858 
— 
. °° . 

2 

~ 


$..IAS 


sCLEAR STORAGE OF NUMBER 
sCLEAR DIGIT COUNTER 

sIS IT A TERMINATOR ? 
sIF EQ. YE 

- 


{BUILD REAL BINARY 
sIF MI, IT WAS we THAN 60 


;WITH 10 IN 
oc 


sOCTAL 
3SET THE TRUE BITS 
s COUNT 7 BVILT 


sALL DONE 

3IS THE LAST + 1 BYTE A TERMINATOR? 
sIF YES THEN SYNTAX OK 

s TERMINATOR IN SET COMMAND? 

;IF NOT THEN SYNTAX ERROR 

sINDICATE SUCCESSFUL OPERATION 


e 
s INDICATE FAILURE 
a 


? . eeu ADORESS 


R1 

(R1)+, o'E 
76$ 
(R1)+,0'T 


BEGIN OF INPUT STRING 
MODIFIED LOCATION 
sPOINT TO “E” 
;CORRECT 

3NO IF NE 

sCORRECT SYNTAX ? 

3NO IF NE 

2 ya SYNTAX ? 


IF NE 
sBUILD ADDRESS TO MODIFY 
+7 CS, FORMAT ERROR 


SAVE 
Connect SYNTAX ? 
BUILD DATS TO INSERT 


sIF CS, FORMAT ERROR 
sAND LOAD 


SEQ 71 


H6 
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864 004460 IAS. .€ 10 € 
865 004462 004737 006262 roo, tm) |S ath OO TTe “ERROR MESSAGE 
866 004466 000207 IAS. .€: RETURN i RE TURN 
867 004470 000000 28: \WORD (O ;SORAGE FOR ADORESS 10 MODIFY 
868 “OSABL LSB 


16 
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87 : 
671 : 
872 F] 
673 -SBTTL $..IAE 
674 3° 
675 3 SUBROUTINE : $.. IAE 
th, sxe sesese 
87a i THIS ROUTINE = THE CORRECT SYNTAX OF 
8679 ;AN“ERR*~ - INPUT TRING AND PROCESSES THE 
aoe et NGUETCHREGESTER- OPTIONS’. 
roy ;LEGAL SWITCH OPTIONS ARE: 
Q 
884 3 7/7 x HALT AFTER ERROR (DEFAULT) 
865 3 /NH * NO HALT AFTER ERROR 
886 3 /PR . DRINT ERROR MESSAGE (DEFAULT) 
887 3 /NP . INHIBIT ERROR PRINTOUT 
888 3 Ct . COUNT CRROR 
889 3 /wC s NO ERROR COUNTING (DEFAULT) 
890 3 /SC . SCOPE LOOP ON THIS ERROR 
891 8 /NS ® NO SCOPE LOOP (DEFAULT) 
poe i /CONT . IMMEDIATE CONTINUE SWITCH 
o 
894 ; 
895 3s INPUT: *START ADOR.OF TEXT STRING 
ye sOUTPUT: sir. SETUP IN SOF TWARE -SWITCH-REGISTER 
© 
p+ 4 s AUTHOR ; BERT HUBER, CSS/DP MUNICH 26-WL'-76 
a 
900 3;.PSECT CSSMON 
901 . LSB 
902 004472 010602 $..IAE: MOV SP ,R2 333FLAG FOR VERY FIRST CHARACTER 
903 004474 012703 007160 MOV @PSOSUR RS :33;GET ‘SWR” ADORESS 
904 004500 005004 CLR Ro 333USE AS ‘CHARACTER 1° 
905 004502 062701 000003 ADO @3,R1 333SKIP IDENTIF YER 
906 004506 122127 000075 CMPB CR1i)+,e' = 3:3sCORRECT SYNTAX? 
907 004512 001137 BNE 778% 33;;BRANCH TE NOT 
908 004514 122127 000057 18; CMPB CR1)+,e'7 3331S NEXT CHAR. A’ 7’ 
909 004520 001403 BEG 2s sssIF EQ, YES 
910 004522 005702 TsT Re 333 VERY FIRST? 
911 004524 001132 BNE 77$ s33IF VES: SYNTAX ERROR 
912 004526 000526 BR 11% 3:3sASSUME END OF STRING 
913 004530 005002 2s: CLR R2 333NO LONGER VERY FIRST 
914 004532 005204 INC R4 333S€T FOR ‘Cl’ -FLAG 
915 004534 121127 000116 CmMPB (R1),@'N as2IS IT THE * /N” -OPTION? 
916 004540 001002 BNE 3$ 333;QRANCH IF NOT 
917 004542 005201 INC R1 33 sADVANCE TO NEXT CHARACTER 
918 004544 005004 CLR R4 sssRESET ‘C1 -FLAG 
919 004546 121127 000123 3%: CmPB (R1),0°S s33sIS IT A'S‘? 
920 004552 001426 BEQ 5$ 333BRANCH IF YES 
921 004554 121127 000103 CMPB (R1),e°C sssIS IF A ‘CC’ ? 
922 004560 001437 BEQ 73 a3 BRANCH IF YES 
923 004562 121127 000110 CmMPB (R1),9 mH s3sIS IT A'mw’ ? 
924 004566 001472 BEG 98 333 BRANCH IF YES 
925 004570 121127 000120 CMPB (R1),a'P ae3IS IT A O@ ? 


926 004574 001106 BNE 77% sasTF NO: SYNTAX ERROR 


pth” 


927 


TEST 
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000117 
000116 
000124 
007160 


4%: 


78: 


708: 


9$: 


10$: 


118: 


77$ 
IAE. -E: 


TsT 
BNE 
BIS 
INC 
INC 


@2QWorxn@wTeo-co 
St tate Sob | 


RaAgAg 


te 
ol 
nw 


J6 


RS 

43 
oBIT14,(R3) 
R1 

i$ 

R1 

CR1i de> oR 
778 
#B1IT14,(R3) 
is 

RS 

6$ 
oB1T15,(R3) 
308 

Ri 
CR1)+,e°C 
778 
ee 
1(R1),0'O 
708 

a aalian 
scm oT 


égtT11,PSDsuR 
#5,R1 


118 
R4 


8s 
@BIT13,(R3) 
30$ 


R1 
CR1)+,e'T 
77% 
@BIT13,(R3) 
i$ 

R4 

10$ 
@B1T12,(R3) 
30% 


R1 
(R1)+,e'T 
778 

+ ahem 
-(R1),015 
AE. .E 
$..STX 


sesIS ITA ‘RP’ ? 
33:QRANCH IF VES 

333SET SR-BIT FOR /NP 
sssADVANCE TO NEXT CHARACTER 
33sCHECK FOR NEXT SWITCH 
sssNEXT CHARACTER 

ss3IS IT A */PR’ ? 

s3sIF NO: SYSNTAX ERROR 
333SET */PR’ -OP TION 
333CHECK NEXT SWITCH 
s33IS IT ‘S/' ? 

33;GRANCH IF YES 

333SETUP FOR ‘/NS’ OPTION 
sss TRY NEXT 

33sNEXT CHARACTER 

s3sIS IT A’'/SC’ ? 

ss3IF NO: SYNTAX ERROR 
333SETUP FOR ‘/SC’ -OPTION 
333CHECK NEXT SWITCH 
:33CHECK FOR — 


333 CHE 
z33IF NO: SYSNTAX ERROR 
333SET ‘IMMEDIATE CONTINUE’ 
33sADJUST POINTER 
333ENO THIS SCAN 
s33IS IT A ‘/CT’ ? 

Y 


3ssADVANCE TO NEXT CHARACTER 
333IS IT A'/CT’ -OPTION ? 
333IF NO: SYNTAX ERROR 
333SETUP FOR '/CT’ OPTION 
333CHECK NEXT SWITCH 

3331S IT ‘/HT' ? 
33;@RANCH IF YES 
:33SETUP FOR ‘ /NP’ -OPTION 
333 TRY NEXT SWITCH 

ee ee TO NEXT CHARACTER 
333IS IT A ‘/HT’ ? 

333IF NO: SYNTAX ERROR 
333SETUP FOR ‘/HT' -OPTION 
333 TRY NEXT SWITCH 

333WAS LAST BYTE A <CR>? 
333:8RANCH IF YES 

233SYNTAX ERROR 

333sRETURN TO CALLER 


K6 


FECA2 58 TEST MACRO M1200 30-MAR-84 16:11 PAGE 19 SEQ 75 
979 -SBTTL $,..RED 
980 se 
981 3 SUBROUTINE $. .RED 
982 gtttesecees easees 
si | 
985 jeeee ABOO 
986 $ THE CARRY BIT IS SET IF A ZERO OCTAL INPUT (ONLY CR,NO DATA) 
+ 44 : HAPPENS 
- 
989 
990 } THIS SUBROUTINE HANDLES ALL nn OF SPECIAL INPUT REQUESTS 
991 sSETUP BY THE PROGRAMMER THROUGH A‘ READ * MACRO. 
ps — INPUT TYPES THAT CAN BE HANDLED ARE: 
an rBINARY FORMAT CEX: 1001101101010001) 
996 ; INPUT CAN BE UP TO 16-DIGITS OF THE FORM O OR 1 
997 sLESS THAN 16 DIGIT INPUT IS FILLED UWITH LEADING ZEROES 
998 : INPUT IS RETURNED IN RO. 
Das gp PREVIOUS CONTEND OF RO WILL BE OVERWRITTEN. 
pee! rOCTAL FORMAT (EX:176523) 
1003 } INPUT CAN BE UP TO 6 DIGITS OF THE FORM 0-7. 
1004 3IN CASE OF A 6-DIGIT-WIDE INPUT, THE LEFTMOST(HIGH ORDER) 
1005 ;OIGIT IS TRUCTATED TO THE RIGHTMOST (LOW ORDER BIT 
1006 sIN CASE OF LESS THAN 6 DIGITS INPUT, LEADING ZERO DIGITS 
1007 sARE INSERTED. 
1008 sTHE RESULT IS RETURNED IN RO,HEREBY OVERWRITING 
poe ~— PREVIOUS CONTENT OF RO. 
ete rDECTMAL FORMAT (EX: 96003) 
1013 } INPUT CAN BE UP TO S DIGITS OF THE FORM 0-9. 
1014 3LESS THEN FJ‘: DIGITS INPUT ARE FILLED UP WITH 
1015 sLEADING ZEROE DIGITS. 
1016 sMAXIMUM NUMBER ALLOWED IS 32656. 
1017 s INPUT IS RETURNED IN RO, HEREBY OVERWRITING THE 
ety — CONTENT OF RO. 
eer sASCI FORMAT (EX: B6TSEL ) 
ae ee Oe fae ee ee 
1023 } INPUT CAN BE ANY LEGAL ASCII CHARACTER. 
1024 3IF INPUT INTO A BUFFER IS REQUESTED, UP TO 80 
1025 sCHARACTERS CAN BE INPUT. 
1026 sIF INPUT RETURN IN RO 1S REQUESTED,ONLY THE FIRST 
ood — WILL BE RETURNED IN THE LOw ORDER BYTE 
; . 
1029 ;0LD CONTEND OF RO IS OVERWRITTEN IN THIS CASE. 
1030 3;IF THE ONLY INPUT IS <CR>, ZERO WILL BE RETURNED IN RO 
ete sAS WELL AS IN THE FIRST BYTE OF THE SPECIFIED BUFFER. 
3 
1033 sAUTHOR: BERT HUBER, CSS/DP MUNICH 29 - JUN - 76 


1034 
1035 005020 004737 006136 


ag” 
$..REO: CALL $..PRO sPRINT PROMPT STRING 


1EC11-8 
$. .RED 
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121127 


007156 
000002 


007026 


000004 


100$; 


1$: 


2s: 


3%; 


4$: 


S$: 


1%: 


2s: 


OCT: 


. DEC: 


MOV 
CMP 
BLE 
MOV 
TST 


nooso4gagRa 
eRe 


SP, INPREG 
2 SP), 04 


sp. :. SASF 
INFLAG 


i$ 
R1,R2,R3,R4,RS 
RL 


@KBBUFF 
14(SP),R2 
a28(R2) 


RO 

6$ 
@R1,015 
3 


$ 
RS,R4,R3,R2,R1 
(SP),2CSP) 


(SP )-+ 
INPREQ 


RO 

RO 

RO 
63,06 
4$ 

@R1, 060 
ae 

@R1, 067 
S$ 


MILOCT 
re R4,R3,R2,R1 
“RED 


260. aR1 
C(R1)+,RO 
(PC )+ 

0 


sSET SPECIAL REQUST FLAG 

sDETECT SPECIAL ASCII INPUT RUNNING 
sNO ASCII INPUT 

sSET SPECIAL ASCII INPUT FLAG 


sWAIT FOR INPUT COMPLETE 


Fi 

sSAVE REGS 

3GET INPUTPIONTER 

sGET INPUTMOFE INDICATOR 
;SELECT REQ. INPUT 

sHANDLE OCTAL INPUT 

sHANOLE DECIMAL INPUT 

sHANDLE BINARY INPUT 

sHANDLE ASCII INPUT INTO BUFFER 
sHANOLE ASCII INPUT INTO BUFFER 
sCLEAR oe Bh ee 


sIF NE, 
3 #06AB00: RESTORE GEN. REGISTERS 
3#@eAB00: REAJUST RETURN ADDRESS 
3*@sAB00: 


3#¢eAB00; RESET SPECIAL REQUEST COUNTER 
3##eAB00; SET CARRY AS ZERO INPUT INDICATOR 


3#¢¢AB00O: AND GO BACK TO CALLER 
sADJUST INPUT CHARACTER 
3 ” 


: ” 

sALL INPUT HANDLED ? 
sMORE THAN 6 DIGITS INPUT 
sLEGAL OCTAL DIGIT ? 

sIF LO, NO 

sLEGAL OCTAL DIGIT ? 

sIF LOS, YES 

sIL LEGAL OCTAL INPUT 
sRESTORE REGS 

sRESTART INPUT SEQUENCE 
sBUILD BINARY 

sINSERT INTO BUFFER 
s;COUNT INPUTS HANDLED 
sOIGIT COUNTER 

7 OF = DETECTED? 

3 

—_ CARRY IF ONLY CR WAS THE INPUT 


}SET CARRY 


sEND OF INPUT 

sCLEAR TRANSFER BUFFER 
sRESET COUNTER 

sEND OF INPUT ? 

sIF EQ, YES 

sDIGIT COUNTER 

sCEEP COUNTING 

sSET INPUT BUFFER POINTER 
sMORE THAN 5S DIGITS ? 


SEQ 76 


M6 
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1093 005316 101412 BLOS as sIF LOS, NO 
1094 005320 3$: WRITE MILDEC sILLEGAL DECIMAL INPUT 
1095 005350 PoP RS.R4,R3,R2,R1 ;REST. REGS 
1096 005342 000626 BR $. .RED sRESTART INPUT 
1097 005344 005704 4%: TST R4 sZERO DIGIT COUNT ? 
1098 005346 001527 BEQ RED..E sIF EQ, YES 
1099 005350 0063504 ASL R4 sBUILO TABLE OFFSET 
1100 005352 016402 005560 MOV 5$(R4),R2 sSETUP CORRECT PARAMETER 
1101 005356 000406 BR 6$ ;SKIP TABLE 
1102 005360 000000 000001 000012 5%: -WORD 0O,1,10.,100.,1000. ,10000. 
005366 000144 001750 023420 
1103 005374 006204 6$: ASR R4 sREBUILD R4 CONTENT 
1104 005376 005003 CLR R3 sRESET SAVE BUFFER 
1105 005400 112103 MOVB (R1)+,R3 iGET FIRST DIGIT 
1106 005402 020327 000060 CMP R3, 060 sCHECK LOWER DIGIT RANGE 
1107 005406 103744 BLO 3$ sIF 10, ERROR 
1108 005410 020327 000071 CMP R3,071 sCHECK UPPER DIGIT RANGE 
1109 005414 101341 BHI 3$ sIF HI, ERROR 
1110 005416 042703 177760 BIC #177760,R3 sCONVERT TO OCTAL 
1111 005422 005703 TST R3 sZERO DIGIT? 
1112 005424 001405 BEQ 138 sIF EQ, YES 
1113 005426 000241 7$: cLCc sRESET CARRY 
1114 005430 060200 ADD R2,RO sBUILD OCTAL NUMBER 
1115 005432 103732 6cs $ sERROR IF OVERFLOW 
1116 005434 005303 DEC R3 sALL DONE? 
1117 005436 001575 BNE 7$ :IF NE, NO 
1118 005440 005304 138: DEC R4 sNEXT DIGIT 
1119 005442 000740 BR 4s 3 
1120 005444 122711 000015 $..BUF: CMPB #15,(R1) sZERO DIGIT ? 
1121 005450 001001 BNE 1$ s3SKIP IF NOT 
1122 005452 005011 CLR (R1) sRESET FIRST INPUT WORD 
1123 005454 010100 1%: MOV R1,RO s TRANSFER BUFFER ADDRESS 
1124 005456 005037 007174 CLR $. SASF sCLEAR SPECIAL ASCII FLAG 
1125 005462 000461 BR REO. .E -_ OF INPUT 
1126 005464 005000 $..ASC: CLR RO 
1127 005466 005037 007174 CLR $. SASF ;CLEAR SPECIAL ASCII INPUT FLAG 
1126 005472 122711 000015 CMPB #15,aR1 sZERO INPUT 
1129 005476 001453 BEQ RED. .E sIF EQ, YES 
1130 005500 111100 MOvVB @R1,RO ;GET FIRST BYTE 
1131 005502 000451 BR RED. .E sEND OF INPUT 
1132 005504 005000 $..BIN: CLR RO H 
1133 005506 005037 005624 CLR 6$ sRESET COUNTER 
1134 005512 122711 000015 CMPB #15,@R1 sZERO INPUT? 
1135 005516 001443 BEQ RED. .E sEND OF INPUT 
1136 005520 022737 000021 005624 1%: CMP 17. ,6$ 3T0O0 MANY DIGITS? 
1137 005526 001013 BNE 2s sIF NE, NO 
1138 005530 S$: WRITE MILBIN sILLEGAL INPUT MESSAGE 
1139 005540 PoP ae R4,R3,R2,R1 NeEwi REGS 
1140 005552 000137 005020 JMP RED REENTER 
1141 005556 121127 000060 2s; CMPB ori. #60 ;ZERO DIGIT ? 
1142 005562 001407 BEQ 3$ ;BRANCH IF YES 
1143 005564 121127 000061 CMPB @R1, 061 sONE DIGIT ? 
1144 005570 001011 BNE as ;BRANCH IF NOT 
1145 005572 006300 ASL RO sADJUST TRANSFER BUFFER 
1146 005574 052700 000001 BIS #BITO,RO ; INSERT INTO TRANSFER BUFFER 
1147 005600 000401 BR 7$ 


a 
1148 005602 006300 3%: ASL RO sADJUST TRANSFER BUFFER 


FECaaS® Test 


1157 005640 
1158 005644 
1159 005646 


N6 
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005201 7$: INC AL 
005237 005624 INC 6$ 
000742 BR 
121127 000015 4$: CMPB @R1,¢15 
001343 BNE S$ 
000401 BR RED. .E 

63: -WORD O 

RED. .E: POP RS,R4,R3,R2,R1 
011666 000002 MOV (SP),2¢SP) 
005726 TST (SP )-+ 
005037 007156 R INPREG 
000207 RETURN 


sPOINT TO NEXT INPUT 
sCOUNT INPUTS 

i CHECK NEXT 

sEND OF INPUT 

3NO, ILLEGAL CHARACTER 


é 
s COUNTER 

SREST. REGS 

‘manos. STACK RETURN ADDRESS 


;RESET SPECTAL REQUEST POINTER 
sRETURN TO CALLER 


SEQ 78 


TEC11-6 
wht 


Tes? 
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000021 


177704 


PAGE 20 


- SBTTL 
s* 
1 SUBROUTINE : 


B7 


$..WRT 
$..WRT 


J 
sTHIS ROUTINE IS CALLED TO SETTUP A MESSAGE PRINTOUT ON CONSOLE 


sALL PRINTING IS CONTROLLED BY INTERRUPT EXEPT <CR>, 


ADORESS OF MESSAGE TEXT 
CALLER PC 


’ 
s INPUT: 
a 


r 
sOUTPUT: 
‘ 
s AUTHOR; 


’ 
sMODIFIED BY: 
ry 


i 


$, WRT; 


=—@ 
wazum 
=m 


gosh 


$. .MSP; 


RRanees 
3 


1%; 


38; 
208: 


$3983 9783 


MOV 
TSTB 
BPL 


2csP)  * 
(SP) ° 


«LF >, 


MESSAGE ON TERMINAL 


BERT HUBER CSS/DP MUNICH 
JOHN LE VE SQUE 


Css ISG 


26 - JUN - 76 
23 -JAN-83 


MODIFICATION REQUIRED TO HANDLE AON AND XOFF 


SP. OUTFLG 
20 5P),(PC)» 


1% ,8064 
0340, 8066 
(SP )+, CSP, 
#100, 80TPS 
OUTFLG 


23, a0TKB 
38 

20% 

021, 80TKB 
is 

as . MSP, 0° ] 
WRT. ° 

as. .MSP,o'[ 
308 

#100, 80TPS 
#15, 80TPB 
aeTPs 

.°4 

$..MSP 

#12, 80TPB 
#100, 8eTPS 


8%. .MSP,@oTPB 


$, .MSP 


sOUTPUT RUNNING ? 


RUNNING ? 
3sIF NE. YES - WAIT 
1SET OUTPUTFLAG 

sGET MESSAGE POINTER 

sMESSAGE POINTER 
sSETUP VECTOR 
sas 
sUPDATE STACK 
sENABLE INTERRUPTS 
sOUTPUT RUNNING? 
sIF NE ,YES->wWwAIT 
sRETURN TO CALLER 
333 CHECK FOR xOFF 
333 OFF CONDITION WAIT TO CLEAR 
333 NO XOFF THEN CONTINUE 
333 CHECK FOR XON 
333 NO XON GO WAIT FOR IT 


sEND OF MESSAGE ? 

sssIF EQ, YES 
338<CR>,<LF>? 

sas IF 


NE, 
13 :0ISABLE  ecteenmtinie 
333SEND «< 
sommes FOR ” DONE 


1b 1POINT 10 TO NEXT CHARACTER 


3#eGSO000Les 
3¢eGSO00O0Lee 


sasPOINT TO NEXT 
aasRETURN TO CALLER 


SEQ 79 


TEC11-6 TEST 
WRT 
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000100 177564 wWRT..E: BIC #100, 80TPS 
007152 CLR 


007170 


OUTFLG 

Tst SPEFLG 
BEQ 34 
CLR SPEFLG 

R INPREQ 
CALL $. .RSV 
JP SSPE 
RTI 


sesOISABLE OUTPUT INTERRUPT 
assRESET OUTPUT FLAG 
sesTHIS FLAG IS SET ONLY 


c WAS 
sssNECCESARY TO INTERRUPT THE 
ss sRUNNING PRINTOUT 
assNOW NEW SPEC. INPUT IS PROCESSED 
a3 sRETURN TO MAIN PROGRAM 


D7 


f€C24,5° Tes! MACRO M1200 30-MAR-84 16:11 PAGE 21 SEQ 81 
1230 -SBTTL $..KBO 
1231 s¢ 
1 SUBROUTINE : $. .KBO 
123 gtteesecesse eeecess 
1234 3 
see sKEYBOARD ECHO ROUTINE FOR TEMINAL INPUT 
é 
1237 s INPUT: (SP) e CALLER PC 
ied s RO ° PATTERN TO ECHO 
a 
erty sOUTPUT; PRINT PATTERN TO TERMINAL 
: 
ras5 s AUTHOR; BERT HUBER CSS/DP MUNICH 26 - JUN - 76 
. - 
1244 s.PSECT CSSMON 
1245 -ENABL (LSB 
1246 006122 105737 177564 $..«KBO: TSTB QeTPS sECHO RUNNING ? 
1247 006126 100375 BPL $..«BO sIF PL, WAIT 
1248 006130 010037 177566 MOV RO, BeTPB sECHO CHARACTER 
1249 006134 000207 RE TURN sRETURN TO CALLER 
1250 -OSABL LSB 


HS bAS® 


1252 
1253 


Test 


E7 
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005037 


005737 
0013575 


010637 
000207 


007150 


007152 


007150 


-SBTTL $..PRO 


1 SUBROUTINE : $. .PRO 


: THIS ROUTINE IS CALLED TO PRINT THE DEFAULT KEYBOARD 
tee: STRING ON THE TERMINAL, AND TO SET THE INPUT FLAG. 


1%; 


(SP) . CALLER PC 
PROMPT STING ON TERMINAL 
BERT HUBER CSS/DP MUNICH 26 - JUN- 76 


THE USE OF THIS MACRO’S ALLOWS TO USE ONE VERSION OF CDM 
ON LSI AND POP. 


-IDENT /V1.0/ 
3.PSECT CSSMON 
NABL LSB 
INFLAG 3sRESET INPUT FLAG 

PREAD STATUS ;SAVE STATUS iaee 1 

PSET e0 sCLEAR PS 001 

s3sWRITE "PROMPT STRING 
sWAIT FOR OUTPUT COMPLETE 


BNE 3 

PSET STATUS sRELOAD pee 3MZ001 
MOV SP, INFLAG 3SET INPUT FLAG 
RE TURN sRETURN to’ CALLING PROGRAM 
-OSABL LSB 


TEC11-8 
7 


TEST 
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000240 


005737 007152 
001375 


000207 


- SBTTL 


3° 
s SUBROUTINE : 


3 
sTHIS ROUTINE PRINTS THE ‘SYNTAX ERROR’ MESSAGE 


: 
s INPUTS: 
3 
sOUTPUT; 


: 
$ 


$..STX: 


18; 


MZOO1 


THE USE OF 


$..STX 
$..STX 


F7 


(SP)= CALLER PC 
MESSAGE ON TERMINAL 


BERT HUBER CSS/DP MUNICH 26 - JUN- 76 


ON LSI AND POP 


:.PSECT CSSMON 
NABL LSB 


STATUS 
0 


MSYERR 
OUTFLG 


1s 
STATUS 
LSB 


THIS MACRO’S ALLOWS TO RUN ONE VERSION OF COM 


33 sOUMMY 
sSAVE STATUS 3MZOO1 
sCLEAR PS 3MZO001 
sWRITE SYNTAX ERROR MESSAGE 
sWAIT FOR OUTPUT COMPLETE 


3 
sRELOAD PS 3MZ001 
333;RETURN TO CALLER 


SEQ 83 


G7 


FECAL 8 TEST MACRO M1200 30-MAR-84 16:11 PAGE 24 SEQ 84 
1317 -SBTTL $..0MP 
1318 io 
1319 s SUBROUTINE : $. .OMP 
1320 oa ee sececs 
1321 
1322 ; THIS ROUTINE PRINTS ON THE TERMINAL PRINTER NUMBERS 
1323 3IN BINARY, DECIMAL AND OCTAL FORMAT, DEPENDING ON THE 
1324 TYPE -ARGUMENT OF THE CALLING DUMP MACRO. 
1325 : THIS MONITOR WAS MODIFIED IN JANUARY 1983 TO INCLUDE XON AND xOFF 
1326 3 TERMINAL FEATURES. ALSO INCLUDED SOME MACRO DIRECTIVES TO ALLOW 
1327 3 ASSEMBLY ON VAX, 
1328 8 
é 


Test 
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18: 


2s: 


4%: 


3$: 


-OSABL 
NABL 


a(SP) VALUE TO DUMP 

2¢0SP) «TYPE : O = OCTAL 
2 = DECIMAL 
4 = BINARY 

(SP) *RETURN PC 


BERT HUBER CSS/0P MUNICH 


CSSMON 
LSB 


RO 
4(SP),RO 
OUTFLG 


.-4 
@..TYPCRO) 


9s 
OF 
zs 
: 


auezece 
es So 


° 
3 


rAAWAeNn se 
“ga ¢2-¢ 
ww ~2 ~e 

Ps 

~~ 

& 

a 

_ 


do, CSP )o 


$q=3 


L 
L 


B80 
@'0,RO 
@sPOINT, (SP) 
38 
RO 
@SPOINT ,( SP) 
es 


$..«BO 
#2, $POINT 


26 - JUN- 76 


sSAVE RO 
3;GET TYPE ARGUMENT 
— ? 


tIF NE 
iSELECT PUNE TEON ROUT INE 


+ SETUP tr COUNT 
sGET VALUE TO DUMP 

SETUP BASIC ASCII VALUE 

sBUILO FIRST tk a 

sIf CC, OIGIT IS A ‘0’ 

sOTHERWISE DIGIT IS A ? 
s0U-P DIGIT 

: COUNT DIGITS DUMPED 


IT 
sIF CC, OIGIT INCLUDES 77777? 
sDIGIT = BASE+4 
sANALYZE NEXT BIT 
tIF Cee DIGIT ———— 222? 
sOIGIT * OIGIT «+ 
sANALIZE LAST BIT “or OIGIT® 
sIF CC, OIGIT MUST BE EVEN 
2 yy oe ld Is 000 


’ 
sREADUUST STACK 
sEND OF DUMP 


J Lea A DIGIT CUUNT 
sGET VALUE TO DUMP 


SP) 
sBUILD tne Pai ZERO 
1 SETUP BASIC ASCII v 


PRINT 


ALUE 
3;CMP VALUE WITH ACT. DEC. DIGIT 
VALUE TS SMALLER 
sCOUNT NUMBER OF DIVISIONS 
+ ACT. DEC. DIGIT 


300 NEX 
sPRINT THIS DEC. DIGIT 
sPOINT TO NEXT DEC. VALUE 


TEC11-6 TEST 
$. .OMP 
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000006 
177772 


I7 


2(SP) 


is 
@S TABLE , SPOINT 
(SP )+,(SP)> 


LSB 
LsB 
#16. ,4(SP) 


sCOUNT NUMBER OF COM. DIGITS 
sALL OONE 
sREBVILD FOR NEXT USER 


sCORRECT STACK FOR RETURN 
sEND OF DEC. DUMP 


RESET mo - Lag PRINT POINTER 
SSELECT FIRST CHARACTER 


sSETUP A” 1 ” CHARACTER 
sOu-P IT 


sRESTORE RO 
sREADJUST STACK 
sRETURN TO CALLER 


SEQ 86 


J7 
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1435 006752 000207 


-SBTTL $..ADP 


‘* 

THIS SUBROUTINE IS USED TO PRINT OUT ADDITIONAL INFORMATION 
ABOUT AN ERROR. MOSTTIMES IT WILL BE USED TO PRINT THE 

; DATA IN" CASE OF DATA ERROR. 


INPUTS : (SP) =sADDRESS OF FIRST ARGUMENT 


OUTPUT: NONE 


=. MICHAEL ZILLER CSS OP MUNICH MAY 1977 
-ADP: WRITE MERI "SHOULD BE” 

DUMP OCT, $SHLD sDUMP DATA 

WRITE MER2 3 “WAS” 

DUMP OCT, $WAS sDUMP = =DATA 


RE TURN sRETURN TO MAIN 


SEQ 87 


e48i° 


TEST 


K7 
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062706 


005737 
001375 
012737 
000136 


007152 


-SBTTL. $..TOT 


. 
i THIS ROUTINE IS ENTERED AFTER THE MACRO “ADRTST” HAS BEEN EVOCED 
sAND A BUS TIMEOUT HAS HAPPENED 


: 
s INPUT: 4(SP) = PC FOR PROGRAM CONTINUATION 


: RO «© REGISTER ADDRESS (E.G. 164000) WHICH SHOULD BE TESTED 
7 
;OUTPUT: THE ERROR MESSAGE: 
: THIS ADDRESS IS NOT AVAILABLE ON UNIBUS: 164000 
; AUTHOR: ALBERT BREM,CSS MUC FEB 1979 
3- 
3 
; 
$..TOT: ADD 04,SP sCORRECT SP 
WRITE  $MNOAV :SAY ADORESS NOT AVAILABLE ON UNIBUS 
DUMP —s- OCT, RO ;DUMP REGISTER ADDRESS 
tst OUTFLG s SYNCHRONIZE PRINTOUT 
MOV 06,004 sREBUTLD TRAP CATCHER 
JMP ac SP )+ ;JUMP TO CONTINUATION LABEL 


SEQ 88 


L7 
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1463 .SBTTL $..6UF 
1464 5° 
1465 sSUBSECTION TO CONTAIN ALL COM-BUFFERS, CONSTANTS AND 
1466 :'NOT MACRO-DEFINED’ PARAMETERS. 
‘ 
1468 ; AUTHOR : BERT HUBER CSS/DP MUNICH 
gg 
1470 3.PSECT CSSMON 
147 -ENABL LSB 
1472 sMEMORY MANAGEMENT DEFINITIONS 
1473 172360 KDSARO#172360 
1474 172320 KDSORO#172320 
1475 172340 KISARO*172340 
1476 172352 KISARS*172352 
1477 172354 KISAR6*172354 
1478 172356 KISAR7=172356 
1479 172300 KISORO*172300 
1480 172314 KISOR6*172314 
1481 172316 KISOR7#172316 
1482 172200 SISORO=172200 
1483 177660 UDSARO* 177660 
1484 177620 UDSORO=177620 
1485 177640 UISARO=177640 
1486 177650 UISAR4=177650 
1487 177652 UISARS=177652 
1488 177654 UISAR6=177654 
1489 177656 UISAR7=177656 
1490 177600 UISORO#177600 
1491 177610 UISOR4*177610 
1492 177612 UISORS=177612 
1493 177614 UISOR6*177614 
1494 177616 UISOR7 #177616 
1495 170200 UBMPR = 170200 
1496 140000 CMODE = 140000 
1497 030000 PMODE = 30000 
1498 177572 SRO#177572 
1499 172516 SR3*172516 
1500 007016 000000 $$PTYP: .WORD 0 sIF O:*LSI; IF -1:=POP 
1501 007020 000000 $$MTYP: .WORD 0 3IF O:NO MM; IF 1:WITH MM 
1502 007022 000000 000000 MEMEND: .WORD 0,0 ;TOP OF CORE AND CORE EXTENSION 
1503 sSTARTING FROM HERE TILL PROMES 
1504 ;THE CONTENTS WILL BE CLEARED 
1505 ;WITH “ABO” 
1506 007026 KBBUFF: .BLKB 80. ; TERMINAL INPUT BUFFER 
1507 007146 KBBEND : ;REFERENCE LABEL 
1508 007146 007026 KBBPNT: .WORD KBBUFF ;INPUT BUFFER POINTER 
1509 007150 000000 INFLAG: .WORD 0 : INPUT ‘RUNNING FLAG 
1510 007152 000000 OUTFLG: .WORD 0 ;OUTPUT ‘RUNNING” FLAG 
1511 007154 000000 ERRFLG: .wORD 0 s'ERROR HANDLING REQ.’ FLAG 
1512 007156 000000 INPREQ: .WORD 0 ;'WAIT FOR SPECIAL INPUT” FLAG 
1513 007160 000000 PSDSWR: 0 :SOFTWARE SWITCHREGISTER 
1514 007162 000000 RUBFLG: .WORD 0 ;RUBOUTMODE - INDICATOR FLAG 
1515 007164 000000 STATUS: .WORD 0 ;BUFFER PS-CONTENT IF SAVED 
1516 007166 000000 $..ER: .WORD 0 ;HOLDS CURRENT ERROR NUMBER 
1517 007170 000000 SPEFLG: . r) ;USED IN $..KBI AND $..WRT 
1518 007172 001000 SCOPAD: 1000 ;SAVE AREA FOR SCOPE LOOP ADDRESS 
1519 007174 000000 $.$ASF: .wORD 0 ;SPECIAL ASCII INPUT FLAG 


M7 
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1520 007176 000000 $SHLD: . USED IN $..ADP 
1521 007 000000 WAS: MOR 8 USED For’. ROP 


BEX 
1523 007202 133 103 104 PROMES: .ASCII /(COM>]/ 


4{ js 
1525 007215 133 113 105 MKBOVF: .ASCII /([KEYBOARD BUFFER OVERFLOW! REENTER)/ 
1526 007256 133 111 114 MILOCT: .ASCII /{ILLEGAL OCTAL INPUT !! REENTER]/ 
1527 007316 133 111 114 MILDEC: .ASCII /[{ILLEGAL DECIMAL INPUT !! REENTER)/ 
1528 007360 133 111 114 MILBIN: .ASCII ’ ILLEGAL BINARY INPUT !! REENTER)/ 
1529 007421 133 111 114 MILEMT: .ASCII /({ ILLEGAL EMT -NUMBER)/ 
1530 007445 133 102 131 MILADR: .ASCII : (BYTE ADDRESS IS NOT ALLOWED }/ 


1531 007503 133 123 131 MSYERR: .ASCII /[(SYNTAX ERROR ![}/ 
1532 007524 133 123 103 MILSCP: .ASCII /(SCOPE LOOP SKIPPED TO A SUBSEQUENT ERROR !![/ 
1533 007601 133 123 125 «ASCII /[(SUSPECT AN INTERMITTEND HARDWARE ERROR{ )/ 


1534 007652 133 105 122 MERROR: .ASCII /[ERROR }/ 

1535 007662 040 040 040 MERRP2: .ASCII / AT LOCATION : }/ 

1536 007704 133 120 122 MPWRFL: .ASCII /([PROGRAM MADE POWER FAIL ()/ 

1537 007737 133 105 122 MERCOV: .ASCII /[ERROR COUNTER OVERFLOW ON ERROR: ]/ 

1538 010002 133 056 O56 MERHMLT: .ASCI1 /[{...HALT AFTER ERROR... )/ 

1539 010032 133 117 120 MNOSUB: .ASCII , OPTION NOT SUPPORTED IN THIS her VERSION)/ 


1540 010104 133 111 114 MILTRi: .ASCII /({ILLEGAL INTERRPT OR TRAP TO 

1541 010144 040 040 040 MILTR2: .ASCII / FROM: )/ 

1542 010156 133 133 133 MVERSN: .ASCII /(((l COM V3.5 ---CSS DIAGNOSTIC MONITOR---[{[7 
1543 010252 110 111 107 -ASCII /HIGHEST MEMORY ADORESS : }/ 

1544 010304 133 040 103 MERI: -ASCII /{ CONTENT SHOULD BE : }/ 


1545 010333 040 040 040 MER2: -ASCII / BUT WAS : j}/ 
1546 010351 133 133 124 $MNOAV: .ASCII /{{THIS ADDRESS IS NOT AVAILABLE ON UNIBUS: ]/ 


1547 010426 133 115 105 MEMDEF: .ASCII /[([MEMORY MANAGEMENT UNIT IS DEFECT!!!7 
1548 010472 133 111 114 MAPER: .ASCII /{ILLEGAL MAPPING ADDRESS SPECIFIED!!!!{}/ 
1549 010542 133 127 105 -ASCII /(WE WILL TRY WITHOUT MEMORY MANAGEMENT[ )/ 
1550 010612 066 135 NO6 : -ASCII /6)/ 

1551 -EVEN 

1552 -LIST BEX 

1553 -DSABL LSB 


N7 
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TITLE TEC11-8 TEST 
-SBTTL LOCAL MACRO DEFINITIONS 


THIS SECTION CONTAINS ONLY MACROS WHICH ARE 
USED SEPARATE FROM THE MACRO LIBRARY (NEWMAC). 


O@BwDYV aur 


~ 
°o 
- o of oe of Ge Ge GF Ge Ge GF Ge oF GF GF 


-MACRO MCLEAR 
19 MOV *BITS,@CIR ; CLEAR REGISTERS IN IEC11-A 
MOV #81T3,aCSR ; CLEAR REGISTERS IN IEC11-8 
21 -ENOM MCLEAR 


t/ 
& 
- oe oF oF 


-MACRO DATACC 
27 BIT #61T15,acIR ; DATA ACCEPTED ? 
28 BEQ .-6 s IF YES,CONTINUE 
29 BIC oy Le te ; CLEAR “DATA ACC” IN CIR 


we 
8 


STALL 


3$595895S5S653 


j 


THE MACRO “CACS” SETS THE IEC11-A 
TO CONTROLLER ACTIVE STATE (CONTROLLER IN CHARGE ) 


56 -MACRO CACS, 2A, 2B 
57 BIS “BITO,aCIR ; SET SACS 


B8 
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ESEA ‘Bacho ber int? IONS ; 

s 08116, 8SMR 
t 281115, asHn 
eo1Te,asrm 
@177400,@CIR 
CACS 


58 
59 A; 
61 8: BI 


SET SIC 

1S SIAS STILL SET ? 
If NOT, TEST AGAIN 
IS CACS SET ? 

IF NOT,WALT 


$3 


81 


C8 
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032737 
001012 


013737 
000403 


000003 007024 


007022 026772 
157776 026772 
026772 
000277 
027004 
031624 026774 
027004 
031623 


160010 
000007 


011216 
026756 


BUF PRP; 


18; 
23: 


RGAIN: 


18%: 


VECAIN: 


2s; 


SAV: 
ADDRIN: 


SOTTL INPUT PROCEDURE 
If @3,MEMEND-2 


BNE is 
If MEMEND HI 0157776 GOTO 18 
MEMEND , MEMSAV 


2s 
@157776 ,MEMSAV 
Vv ,RO 


RTE 


BIT @7,R0 

BNE RGAIN 

IF RO LO #160010 GOTO RGAIN 
IF RO HI 0177776 GOTO RGAIN 
ADRTST RGAIN 

MOV RO,CIR 

ADO @2,R0 
ADRTST RGAIN 

MOV RO, SMR 

ADO @2,R0 
ADRTST RGAIN 

MOV RO, IOR 

ADD #1,R0 

MOV RO, IORHB 
ADO #1,RO 
ADRTST RGAIN 

MOV RO,VSR 
WRITE MES2 

READ OCT ,RO 

IF RO NE @0 GOTO 238 
MOV @270,RO 


IF RO LO @40 GOTO VECAIN 
IF RO HI 0774 GOTO VECAIN 


CMP RO, @V 

BEQ SAV 

WRIT ME S6 

JMP VECAIN 

MOV RO,VECA 

WRITE MESS 
AD ocr 


RE 2RO 
IF RO HI #36 GOTO ADDRIN 
IF RO EQ #0 GOTO DEFA 


SEQ 95 


MORE THAN 32 K ? 


USE 26K FOR BUFFER 


SAVE ABSOLUTE LOADER AREA 
LAST BYTE ADDRESS OF BUFFER 8B 
FIRST BYTE ADORESS OF BUFFER A 
BUILD LENGTH 

bo BYTES 


BUFFER A OR B 

BUILD FIRST BYTE ADDRESS OF 
BUFFER 6B 

BUILD LAST BYTE ADDRESS 

OF BUFFER A 

IDENTIFY TEST 


ENTER FIRST REG OF IECI1-A 
INPUT REQUEST 


SAVE DEFAULT VALUE 
CHECK THREE LSB OF INPUT 
IF NOT CLEAR, REQUEST AGAIN 


SAVE CIR ADORESS 
BUILD NEXT ADORESS 


SAVE SMR REG ADDRESS 
BUILD NEXT ADORESS 


SAVE IOR REG ADDRESS 
a | eesti ADORE SS 


OF 
BUILD NEXT ADDRESS 


SAVE VSR REG ADORESS 
REQUEST VECTOR ADORESS OF IEC11-A 
INPUT REQUEST 


SAVE DEFAULT VALUE 


IS INPUT EQUAL TO VSR ? 

IF YES,SAVE INPUT AND CONTINUE 
IF NOT WRITE MESSAGE 

SAVE IEC11-A VECTOR ADDRESS 
~~ IECi1-A BUS ADORESS 


D8 
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134 011354 
135 011366 
136 011572 


010037 
000403 
012737 


026762 
000035 026762 ODEFA: 
RGBIN: 
160020 
000007 48; 
026744 
000002 
026746 
026750 
026752 
000001 
026754 
vECBIN: 
000274 
5%: 
026760 
BOODRIN: 
026764 
000036 026764 ODEFB: 


IF RO EQ O35 Sore DEFA 
MOV ft AAD 


MOV #35, IECAAD 
WRITE MESS 

READ OCT,RO 

IF RO NE #0 GOTO 4% 
MOV #160020 ,RO 
BIT @7,RO 

BNE RGBIN 


IF RO LO #160020 GOTO RGBIN 
IF RO HI 0177776 GOTO RGBIN 
ADRTST RGBIN 


MOV RO.CSR 
ADO @2,R0 
ADRTST RGBIN 
MOV RO.BCR 
ADO @#2,R0 
ADRTS1 RGBIN 
MOV RO,BAR 
ADO @2,RO0 
ADRTST RGBIN 
MOV RO,.MCR 
ADO #1,R0 
MOV RO, 
WRITE MES4 
READ ocr, 
IF RO NE 90 GOTO 58 
MOV 0274 


IF RO LO #49 GOTO VECBIN 
IF RO HI #774 GOTO VECBIN 
MOV RO, VE 

WRITE MES7 

READ OCT RO 

IF RO HI #36 GOTO BDDRIN 


IF RO EQ #0 GOTO DEFS 
IF RO EQ #36 GOTO DEFB 


MOV RO, IECBAD 
BR $..SPC 
MOV @36, IECBAD 


SAVE IEC11-A BUS ADDRESS 

GOTO GET NEXT REGISTER ADDRESS 
SAVE DEFAULT VALUE 

ENTER FIRST REG OF IEC11-8 
INPUT REQUEST 


SAVE DEFAULT VALUE 
CHECK THREE LS68 OF INPUT 
ARE ZERO 


SAVE CSR REG ADDRESS 
BUILD NEXT REG ADDRESS 


SAVE BCR REG ADDRESS 
BUILD NEXT REG ADDRESS 


SAVE BAR REG ADCRESS 
BUILD NEXT REG ADDRESS 


SAVE MCR REG ADDRESS 
BUILD MCR -HIGHBYTE 


REQUEST IEC11-68 VECTOR 
INPUT REQUEST 


SAVE DEFAULT VALUE 


SAVE IEC11-8 VECTOR ADDRESS 
or al TEC11-8 BUS ADDRESS 


SAVE IEC11-8 BUS ADDRESS 
GOTO TEST SELECT 
SAVE DEFAULT VALUE 


E8 


ESE BLTET no 200 SOs 08 tor88 Pace Be 


206 
207 


012242 


005737 
001375 
000005 


012737 
006300 
010027 
000000 
013737 
062737 
017737 
004777 


007152 


177777 


000000 
012222 
012156 
000046 


000040 
012156 
000: 2 
012242 


017350 
022206 


$..SPC; 


LABI1: 


OFFSET: 
SINGLE: 


TESTAL: 
SEQPNT: 
SEQ: 


TT: 


OF FCNT: 
TTE: 


.SBTTL TEST SELECT ROUTINE 
REMVEC @VECA 

RE evecs 

TsT OUTFLG 


SET6 BeTKS 
WRITE MESNEX 
AD OCT ,RO 
IF RO HI @7 GOTO LAB11 
IF RO EQ #0 GOTO TESTAL 


t 
2 
b 
: 
Hl 
3 
b 
$ 
$ 
t 
MOV 0177777, TSTREP Py 
ASL RO 3 
MOV RC, CPC > 8 
-WORD O 3 
MOV OFFSET ,OFFCNT : 
ADD @TT OF FCNT a 
MOV SOF FCNT ,OFFCNT : 
JSR PC, F a 
BR SINGLE Fy 
MOV #0, TSTREP a 
MOV @TT+2,(PC)> 3 
. WORD : 
MOV SEQPNT .OFFCNT : 
MOV SOF FCNT OFF CNT 3 
JSR = F 3 
CMP SEQPNT , @TTE-4 : 
BEQ TESTAL 3 
BR SEQ : 
. WORD 0, TESTI, TEST2, TESTS, TEST4, 
- WORD 0 : 


WAIT FOR ANY OUTPUT COMPLETE 


CLEAR THE WORLD 
RE-ENABLE TTY 

REQUEST NEXT TEST TO RUN 
WAIT FOR INPUT 


LOOP ON SINGLE TESTS 
BUILD WORD OFFSET INTO TABLE 


AND SAVE 
HOLDS CURRENT TEST NUMBER 


GOTO SELECTED TEST 
REPEAT TEST 

NO LOOP ON SINGLE TESTS 

GET ADORESS OF FIRST TEST 
POINTER FOR TEST IN PROGRESS 
LOAD ADDRESS OF NEXT TEST 


GOTO EXECUTE TEST 
ALL DONE ? 
IF EQ, YES 
POINT TO ~ TEST 


ANDO OO NEX 
TESTS, TEST6, TEST? 


SEQ 95 


TEC11-8 


MACRO 
TEST 1: REGISTER STATI 


Test 


001417 


™1200 
Cc Test 


000161 
177777 
177777 
137777 


014370 


014324 


014260 


014220 


014154 


014110 


014044 


013740 


TESTI: 
REP1: 


1%: 


2s: 


38; 


4%; 


5$: 


6%: 


78: 
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- SBTTL 
WRITE 


F8 


TEST 1: REGISTER STATIC 
ME“ 


#161,8CSR 

#177777,a8CR 
#177777, @BAR 
#137777, ancR 


@BIT3.aCSR 
0177777, -(SP) 
BCR, -(SP) 


REGTST 
#177777, -CSP) 
AR, -(SP) 


SEQ %6 


TEST 
IDENTIFY TEST 1 


SET ALL R\W BITS IN CSR 
SET ALL R\W BITS IN BCR 
SET ALL R\W BITS IN BAR 
SET ALL R\W BITS IN MCR 


ALL BITS RESET IN CIR ? 
IF YES,CONTINUE 


ALL BITS RESET IN SMR ? 
IF YES,CONTINUE 


ALL BITS RESET IN IOR ? 
IF YES,CONTINUE 


ALL BITS RESET IN CSR ? 
IF YES,CONTINUE 


ALL BITS RESET IN BCR ? 
IF YES,CONTINUE 


ALL BITS RESET IN BAR ? 
IF VYES,CONTINUE 


ALL BITS RESET IN MCR ? 
IF YES,CONTINUE 


SAVE BIT MASK 
SAVE REGISTER 
TEST R/W BITS 
SAVE BIT MASK 
SAVE REGISTER 
TEST R/W BITS 
CLEAR REGISTERS IN IEC11-8 
SAVE BIT MASK 


TEST LOOP SELECTED ? 
IF NOT,LEAVE THE TEST 


END OF TEST 


G8 
FESH i? Abel srenS RPE FP2, 5O-MAR-84 16:11 PAGE 52-1 seQ 97 


266 013072 000207 RE TURN ry 


3? Theker 


013104 


ARNEL RSPERER eRe PB ede: *t PACE 5S 


001000 
000004 


013602 
013576 


013564 


013542 


013524 


013476 


013376 
013370 


013310 
013312 


013242 


013172 
013174 


013114 


TEST2: 
REPO: 


18: 


2s: 


58: 


LAB1: 


LAB2: 


LABS: 


LAB4; 


- SBTTL 
WRITE 
OPE 


H8 


SEQ 96 


L$ 34 2: TALKER AND LISTENER Soutien ts Test 


*BITO,eCIR 
oe 


9. 
#177400 ,aCIR 


TAIND ,RO 
IECBAD ,RO 
a 


CNT1 
#61T15,acIR 


QO. 
#61IT15,acIR 
@61T2, SMR 
#1204 ,@CSR 
LAB1 

#1204 ,@CSR 
il. 
@61T9,aCSR 
@4,aCSR 


LAB2 
@4,aCSR 
12. 


@61T1, SMR 
#1200, aCSR 
LABS 

nce 


RROR 
TEST LOOP ENTRY 
SET SACS 
SET SIC 


IS SIAS STILL SET ? 
IF NOT ,CONTINUE 
IF VES,WAIT A WHILE 


Is CACS SET ? 


BUILD MTA B 
SET 6 TO TADS 


DATA ACCEPTED ? 
IF YES,CONTINUE 
IF NOT,WAIT A WHILE 
WAITLOOP FINISHED ? 


CLEAR “DATA ACC” IN CIR 

GOTO STANDBY STATE.B TO TACS 

IS TACS,STATE CH AND INT IN 6 SET? 
IF YES CONTINUE 


LOOP FOR ERROR 4 

CLEAR STATE CHANGE IN CSR 

TACS SET,STATE CH AND INT CLEAR? 
IF YES,CONTINUE 


LOOP FOR ERROR 5S 

LEAVE STANDBY STATE 

STATE CH AND INT SET, TACS CLEAR? 
IF YES CONTINUE 


CLEAR STATE CHANGE IN CSR 
BUILD MTA A 


A SETS ITSELF TO TACS,UNADOR. 
GO TO STANDBY STATE 


TACS CLEAR ? 
IF vYES,CONTINUE 


OTHER 


LOOP FOR ERROR 7 
LEAvVc STANDBY STATE 


TEC11-68 
TEST 2: 


Test 
TALKER 


MACRO M1200 


AND LISTENER FUNCTION TEST 


001000 
0000Ge 


013022 
013024 


012754 
012746 


012666 
012670 


012622 


012554 
012556 


012530 


012454 
012456 


LABS: 


LABE: 


LAB?: 


LABS: 


LABS: 


18: 
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@2,aCSR 
LAB6 


18 


BYILO MTA B 


SET B TO TADS 


BUILD MLA B 


SET B TO LADS 
GOTO STANDBY STATE.B TO LACS 


LACS,STATE CH AND INT SET 


TF YES,CONTINUE 


ELSE ERROR 


LOOP FOR ERROR 6 
CLEAR STATE CHANGE IN 


Csr 


? 


SEQ 99 


ae SF are CHANGE AND INT RESET ? 


F TRUE CONTINUE 


LOOP FOR ERROR 9 


LEAVE STANDBY STATE 


STATE CHGE AND IN’ SET,LACS CLEAR ? 
IF YES,CONTINUE 


CLEAR STATE CHGE AND INT 


LOOP FOR ERROR 10 
UNLISTEN IEC11-8 


GOTO STANDBY STATE 


IS LACS RESET ? 
IF vES,CONTINUE 


LOOP FOR ERROR 11 


LEAVE STANDBY STATE 


BUILD MLA B 


SET B TO LADS 


BUILD MTA B 


SET 6 TO TADS 

GOTO STANDBY STATE,SET 6 TO TACS 
TACS,STATE CHGE AND INT SET ? 

IF YES,CONT INUE 


TEST LOOP SELECTED ? 


IF NOT,LEAVE THE 


END OF TEST 


Tes? 


Tt 


cii-8 
ST 8: 


J8 


PAGE 34 SEQ 100 
sT 


-SBTTL TEST 3: GENERAL INTERRUPT AND OMA FUNCTION TEST 
TESTS: i MES10 


3 
005737 007152 OUTFLG + WAIT FOR ANY OUTPUT COMPLETE 
001375 4 M eee 
104000 OPE 2 
REPS: MCLEAR : 
cCACcS : 
SETVEC @VECB, @INTTST, 340 ; 
013700 026770 MOV LIINO,RO s BUILD MLA B 
063700 0267 ADD IECBAD ,RO : “ 
110077 012234 ontnce RO, @IOR ; SET B TO LADS 
° 
013700 026766 MOV TAIND ,RO s BUILO MTA A 
063700 026762 ADD IECAAD ,RO i - 
110077 012202 oaraee RO, @IOR ; SET A TO TADS 
a 
052777 012154 BIS @BIT2,8SMR s GOTO STANDBY .SET A TO TACS,.8 TO LACS 
005037 027022 CLR INTFLG : 
052777 000100 012152 STCHGE: BIS @BIT6,aCSR s ENABLE INTERRUPT 
012737 177000 027006 MOV #177000,CNT1 3 PREPARE DELAY 
005737 027022 18: TsT INTFLG s HAS INTERRUPT OCCURRED ? 
001010 BNE es s IF vES,CONTINUE 
005237 027006 INC CNT1 ; 
001372 BNE i$ ; 
042777 000100 012122 eaten @BIT6,aCSR : OISABLE INTERRUPTS 
. o 
032777 000100 012110 2%: BIT #100,aCSR s IS INTERRUPT ENABLE BIT RESET ? 
001402 oa 4 s IF YES,CONTINUE 
022777 001202 012074 3%: CMP #1202,aCSR s CAUSED STATE CHGE THE INTERRUPT ? 
001420 BEQ NEXBIT : IF VYES,CONTINUE 
ADP #1202,8CSR ; 
ERROR 22. ; 
104000 SCOPE ; 
NEXBIT: SETVEC @VECB, @INTSRV, 0540 8 
005037 027016 CLR NEXFLG ’ 
042777 177400 012002 BIC @177400,aCSR ; CLEAR INTERRUPT CAUSING BITS 
022737 157776 00702¢ CMP #157776, MEMEND ; 
001121 BNE NEX1 ; 
022737 000003 007024 CMP @3,MEMEND+-2 : 128K MEMORY ? 
001115 BNE x1 ; 
012737 026722 000004 MOV ONE XMEM , 804 3s SETUP VECTOR 
052777 000060 011746 BIS #60, 8CSR s ENABLE ADDRESSING OVER 32K 
012700 160000 MOV #160000 ,RO s TRY FIRST ADORESS IN I/O PAGE 
005710 1$; TST CRO) : NON-EXISTANT ADDRESS? 
005737 027016 TsT NEXFLG i 
001003 BNE es ; 
062700 000002 ADO @2,R0 3; IF NOT, TRY NEXT ONE 
000771 BR 1% 3 
012737 000004 2%: MOV 06,804 s REBUILD VECTOR 
010077 011716 MOV RO, @BAR s NEX-ADDRESS TO BAR 
012777 000001 011706 MOV #1,8BCR 3 PREPARE BCR 
052777 000101 011676 BIS #101,8CSR s ENABLE INTERRUPT AND FUNCTION (DMA) 
112777 000252 011662 MOVB 0252 ,.@I0R s DUMMY VALUE TO OUTPUT REGISTER 
012737 177000 027006 MOV #177000,CNT1 s PREPARE DELAY 
032777 100000 011642 6%: BIT @BIT1S,acIR s DATA ACCEPTED ? 
001007 BNE 3$ 3; IF vES,CONTINUE 


FESH s® Eide 


rt 015072 


TNTERRU. AND OHA FUNCTION TesT 


001420 


032777 


027006 
027006 
000100 
027006 
000100 
100262 


011626 


011610 
011576 


011412 


011374 
011362 


011312 
007024 


011274 
011272 


011224 


011210 


4%: 


S$: 
NEX1: 


5$: 


1$: 


2s: 


NEX2; 


S$: 


2s: 


INC 
TST 


K8 


@B1T6.OCSR 
#100262. 8CSR 
@100262,aCSR 
25 . 

BCOVFL 
#177760, CSR 
@2 ,MEMEND +2 
NEX2 


#177000, CNT1 
#61T15,@CIR 


27. 

#100242, aCSR 
NE X2 
#100242,aCSR 
28. 


#177760,8CSR 


oBIT6,aCSR 


IF NOT,WAIT A WHILE 
WAITLOOP FINISHED ? 


HAS INTERRUPT OCCURRED ? 
IF YES,CONTINUE 


DISABLE INTERRUPTS 


CAUSED NXM THE INTERRUPT ? 
IF YES,CONTINUE 


CLEAR INTERRUPT CAUSING BITS 
MEMORY EXISTS ? 


SELECT BUS ADDRESS 400000 


PREPARE BCR 

ENABLE INTERRUPT AND FUNCTION (OMA) 
OUMMY VALUE TO OUTPUT REGISTER 
PREPARE DELAY 

DATA ACCEPTED ? 

IF YES,CONTINUE 

IF NOT,WAIT A WHILE 

WAITLOOP FINISHED ? 


HAS INTERRUPT OCCURRED ? 
IF YES,CONTINUE 


DISABLE INTERRUPTS 


CAUSED NXM THE INTERRUPT ? 
IF YES,CONTINUE 


MEMORY EXISTS ? 
SELECT BUS ADDRESS 200000 


ENABLE INTERRUPT AND FUNCTION (DMA) 
DUMMY VALUE TO OUTPUT REGISTER 
PREPARE DELAY 

DATA ACCEPTED ? 

IF YES,CONTINUE 

IF NOT,WAIT A WHILE 

WAITLOOP FINISHED ? 


HAS INTERRUPT OCCURRED ? 


SEQ 101 


L8 


SEQ 102 


HESH'G® Leiden. TAFERUF Sa 'BilPike Ha best 2 


493 015534 001410 BEG 3$ s IF YES,CONTINUE 
494 015536 0052357 027006 INC CNT1 5 
495 015542 001571 BNE 2s ‘ 
ya pd tsned 042777 000100 011172 os oBIT6,aCSR s OISABLE INTERRUPTS 
3 

498 015556 022777 100222 011160 53%: CMP #100222, @CSR 3 CAUSED NXM THE INTERRUPT ? 
499 015564 001420 BEQ s IF YES,CONTINUE 
500 015566 ADP #100222, CSR 3 
501 015620 ERROR ° : 
502 015624 104000 SCOPE ’ 
S03 015626 042777 177760 011110 NEX3: BIC #177760,8CSR i 
504 015634 032737 100000 007022 BIT oBIT1S5,MEMEND s MEMORY EXISTS ? 
SOS 015642 001067 BNE NEX4 ’ 
506 015644 012777 100000 011076 MOV #100000, 8BAR s SELECT BUS ADDRESS 100000 
507 015652 052777 000101 011064 BIS #101,8CSR s ENABLE INTERRUPT AND FUNCTION (DMA) 
508 015660 112777 000252 011050 #252 ,8I0R s OUMMY VALUE TO OUTPUT REGISTER 
509 015666 012737 177000 027006 MOV #177000, CNT1 s PREPARE DELAY 
510 015674 032777 100000 011030 5%: BIT #6IT15,aCIR s DATA ACCEPTED ? 
511 015702 001007 BNE es s IF YES,CONTINUE 
Si2 015704 005237 027006 INC CNT1 s IF NOT,WAIT A WHILE 
$13 015710 005737 027006 TsT CNT1 3: WAITLOOP FINISHED ? 
514 015714 001367 BNE S$ 8 
515 015716 E 32. : 
$16 015722 032777 000100 011014 2%: BIT #B1T6,8CSR s HAS INTERRUPT OCCURRED ? 
517 015730 001410 BEQ 3$ s IF YES,CONTINUE 
518 015732 005237 027006 INC CNT1 $ 
519 015736 001371 BNE 2s 3 

015740 042777 000100 010776 BIC #BIT6,8CSR ; DISABLE INTERRUPTS 
S21 015746 ERROR j 
S22 015752 022777 100202 010764 3%: CMP #100202, 8CSR 3s CAUSED NXM THE INTERRUPT ? 
S23 015760 001420 BEQ x4 : IF YES,CONTINUE 
S24 015762 ADP #100202, a8CSR $ 
S25 016014 ERROR . : 
S26 016020 SCOPE ; 
S27 016022 042777 177400 010714 NEX4: BIC #177400,aCSR ; CLEAR INTERRUPT CAUSING BITS 
528 016030 032737 040000 007022 BIT @B1IT14,MEMEND ; MEMORY EXISTS ? 
529 016036 001067 BNE BCOVFL : 
530 016040 012777 040000 010702 MOV #40000 , 8BAR s SELECT BUS ADDRESS 40000 
531 016046 052777 000101 010670 BIS #101,8CSR s ENABLE INTERRUPT AND FUNCTION (OMA) 
S32 016054 112777 000252 010654 MOVB #252 ,aI0R : DUMMY VALUE TO OUTPUT REGISTER 
533 01 012737 177000 027006 MOV #177000,CNT1 s PREPARE DELAY 
534 016070 032777 100000 010634 5%: BIT $B1T15,@CIR s DATA ACCEPTED ? 
535 016076 001007 BNE 1$ :; IF YES,CONTINUE 
536 016100 005237 027006 INC CNT1 s IF NOT,WAIT A WHILE 
537 016104 005737 027006 TST CNT1 ; WAITLOOP FINISHED ? 
538 016110 001367 BNE S$ : 
539 016112 ERROR 35. 3 
540 016116 032777 000100 010620 1%: BIT #BIT6,ACSR s HAS INTERRUPT OCCURRED ? 
541 016124 001410 BEQ es : IF YES,CONTINUE 
542 016126 005237 027006 INC CNT1 : 
543 016132 0013571 BNE 1$ : 
544 016134 042777 000100 010602 Bic #BIT6,aCSR s DISABLE INTERRUPTS 
545 016142 ERROR 36. i 
546 016146 022777 100202 010570 2%: CMP #100202, 8CSR 3 CAUSED NXM THE INTERRUPT ? 
547 016154 001420 BEQ BCOVFL s IF YES,CONTINUE 
548 016156 ADP #100202, 8CSR ; 
549 016210 ERROR 37. : 


f CERERAL INTERRUPT Ano Ona FuNcTION test ™~* 


016716 


022777 
001420 


022777 
001417 


005737 
001403 
000137 
104000 


013700 
063700 
110077 


027024 
014372 


026766 
026762 
010014 


010426 


010410 
010376 


027006 
010242 


010226 


010210 
010176 


BCOVFL: 


S$: 


18: 


2s: 


ENOBIT: 


S$: 


1%: 


2s: 


sc 
BI 
MOV 


MOV 
BIS 


M8 


#177760,8CSR 
ah. 


t 
_— -@CSR 
TSTREP 
PR 
REP3 
ovecs 
TAIND ,RO 


IECAAD ,RO 
RO,@IOR 


SEQ 1035 


CLEAR INTERRUPT CAUSING BITS 

PREPARE BCR WITH HIGHEST VALUE 

FIRST BUFFER ADDRESS 

SET INTERRUPT ENABLE AND FUNCTION BIT 
DUMMY we L I/O REGISTER 

PREPARE DELA 

DATA ACCEPTED ? 

IF YES,CONTINUE 

IF NOT,WAIT A WHILE 

WAITLOOP FINISHED ? 


HAS INTERRUPT OCCURRED ? 
IF YES,CONTINUE 


DISABLE INTERRUPTS 


CAUSED BC OVFL THE INTERRUPT ? 
IF YES,CONTINUE 


CLEAR INTERRUPT CAUSING BITS 

FIRST BUFFER ADDRESS 

PREPARE BYTE COUNT REGISTER 
PREPARE MATCH CHARACTER 

ENABLE FUNCTION (DMA) AND INTERRUPT 
FIRST ore IN I/0 REGISTER 


PREPARE 
DATA ACCEPTED ? 
IF YES, CONTINUE 


IF NOT,WAIT A WHILE 
WAITLOOP FINISHED ? 


HAS INTERRUPT OCCURRED ? 

IF YES,CONTINUE 

DISABLE INTERRUPTS 

CAUSED “END” THE INTERRUPT ? 
IF YES,CONTINUE 


TEST LOOP SELECTED ? 
IF NOT,OO0 THE REST OF TEST 


BUILD MTA A 
SET B TO TADS 


Fec}! 6 -B 


pi $3. 


Sma TAPER Fh Bi 


000137 
012703 


000240 
000240 
000406 


000137 
012703 


017330 
017310 


017330 


MAR - 
F 


007734 


007674 


nertSi test PAGE 34-4 


PR1: NOP 


N8 


LIINOD,RO 
IECBAD ,RO 
RO, @IOR 


@BIT2,8SMR 
@VECB ,, OPRIOR , 0340 


0340 
#B1T6,aCSR 


BUILD MLA B 
SET A TO LADS 
GOTO STANDBY STATE 


SETUP PSW 
ENABLE INTERRUPT 


GET PRINTOUT ADOR. 
ALLOW BR7 

GOTO PRIORITY 6 
LEAVE TEST 3 

GET PRINTOUT ADOR. 
ALLOW BR6 

GOTO PRIORITY 5S 
LEAVE TEST 3 

GET PRINTOUT ADOR. 
ALLOW BRS 

GOTO PRIORITY 4 
LEAVE TEST 3 

GET PRINTOUT ADOR. 
ALLOW BR4 

GOTO ERROR 

LEAVE TEST 


3 
NO INTERRUPT OCCURED 


“ND OF TEST 


SEQ 104 


fecy' 8 8 


s3' 


OMA - TRANSFER FROM 68 TO A (6B IS TALKER) 


MACRO M 


1200 30-MAR-64 16:11 PAGE 35 


027000 027020 
027020 
007152 


027006 
027002 


027006 
027006 027000 


REPS; 


18: 
2s: 


TSTREP 


Bg 


BCIN4 
BUFFL .OC INP 
ey 


oct “BFF 


HI SUFFL GOTO BCING 
BCIN4 


—S Ser eS 


ouivce 
ai 


ovecs 
CNT1 
BUF BB RO 


Cra 


-SBTTL TEST 4: OMA-TRANSFER FROM 6 TO A (B IS TALKER) 
Te MES11 


TEST LOOP SELECTED ? 
USE MAXIMAL BUFFER LENGTH 


REQUEST BrTE COUNT 
MAXIMAL INPUT 


SAVE BYTE COUNT 
WAIT FOR ANY OUTPUT COMPLETE 


PREPARE 
BUFFER B 
WIT 


CONSECUTIVE 
VALUES 


SEQ 105 


FESH 4? Dh’ re 
oie Stas 
7526 


FRORB rB°A"CB GS Hiden PAE 5 


005400 
010077 


117721 
023737 


027006 


027020 


S$: 


aAcc4: 
OMA4: 


INTB4: 
LAST4: 


9%: 


SaUapARGZENEER 


acc 


anegnansgeie 


C9 


R1 
@400,R1 
es 
is 


BUF AB RO 
@377,CRO)+ 
RO,BUF BB 


e6IT2,8SMR 
#177400,8CSR 
BUF BB , BBAR 
BCINP ,RO 

RO 


RO,aBCR 
BUF AB ,R1 


OVECB. @INTSRV, 0340 


#101,8CSR 
CNT2 


CNT1 
#61T15,eCIR 
OMAS 


#61T15,@CIR 
BIORHB CRI)» 
CNT 


os 
#61T15,aCIR 
LAST4 
CNT2 
OONE 
118 
#61T15,aCIR 


BIORHB ,(R1)> 
CNT2,8C INP 


FROM 
0.377 
OC TAL 


SET ALL 
BITS 


IN 
BUFFER A 


BUILD MTA 8 

SET B TO TADS 

BUILD MLA A 

SET A TO LADS 

GOTO STANDBY STATE 

CLEAR INTERRUPT CAUSING BITS 
4k ae 
POINTER TO BUFFER a 

ENABLE FUNCTION (OMA) AND INTERRUPT 


DATA ACCEPTED ? 
IF YES,CONTINUE 
IF NOT,WAIT A WHILE 
WAITLOOP FINISHED ? 


DATA ACCEPTED ? 

IF YES,CONTINUE 

HAS INTERRUPT OCCURRED ? 
IF YES.GET LAST BYTE 


DATA TO BUFFER A 
BYTE COUNTER 


PREPARE DELAY AFTER INTERRUPT 6B 


DATA ACCEPTED ? 
IF NOT WAIT 

IF YES,CHECK FOR 
CORRECT BYTE COUNT 


BYTE TO BUFFER A 
ALL BYTES DONE ? 


SEQ 106 


TEC11-6 


TEST 


MACRO M1200 50-MAR 64 ap PAGE 36.1 


TEST 4; OMA-TRANSFER FROM B TO A (6 IS 


177777 
027014 


027014 


006522 


007160 


027020 


TALKER) 


148; 


158%; 


D9 


LAST4 
@177777,00NE 
LAST4 


-(RO), ASAVE 
-(R1), BSAVE 
>» (aes eae 


If YES 
SET FLAG 


ALL DONE ? 
NOT ALL BYTES TRANSFERRED 
TO MANY BYTES TRANSFERRED 


AUSED “BC OVFL” THE INTERRUPT 
IF YES,CONTINUE 


PROVIDE FIRST BYTE OF BUFFER A 
PROVIDE FIRST BYTE OF BUFFER 8B 


BYTE COUNT 

BUFFER A EQUAL TO BUFFER 6B 
IF YES,CONTINUE 

IF NOT,SAVE DATA 


PRINTOUT ALLOWED ? 
WRITE BYTE COUNT 
DUMP NUMBER 


ALL BYTES COMPARED ? 
IF NOT,GET NEXT ONE 

TEST LOOP SELECTED ? 
IF NOT,LEAVE THE TEST 


END OF TEST 


SEQ 107 


Tec 
s 


11-8 


TEST 


MACRO 1200 
TEST S: OMA-TRANSFER FROM A T 


005400 
010077 
013701 


052777 
112177 


027024 
027000 


-MAR 84 
(8 IS 


027006 


005724 


005724 
005722 


005654 


005624 
005614 


1 
L 


6:11 
NE 


ISTE 


TESTS: 


BCINS: 


REPS: 


38: 
4$; 


58: 


E9 


-SBTTL TEST S: OMA-TRANSFER FROM A TO 6 (B IS LISTENER) 
WRITE ME 


PAGE 37 
R) 
I $i2 
TsT TSTREP 
BNE INS 
MOV BUFFL .BCINP 
BR PS 
WRITE MES17 
OuMP OCT ,.BUFFL 
READ T,RO 


MOV 
CLR 


BB RO 
@377,(RO)> 
CNT1 
BUFFL .CNT1 
as 
TAIND ,RO 
IECAAD ,RO 
RO,@IOR 
LIIND,RO 
IECBAD ,RO 
RO,@IOR 
@BIT2,8SMR 
#177400 ,aC 
BUF BB, BAR 
RO 
RO, BCR 
BUF AB ,R1 
@vECcB, oINT 
#101,aCSR 
C(R1)+,@IOR 
#100, 8CSR 
S$ 


@4202,8CSR 
63 


SR 


Gg fo 


TEST LOOP SELECTED ? 
USE MAXIMAL BUFFER LENGTH 


REQUEST BYTE COUNT 
MAXIMAL INPUT 


SAVE BYTE COUNT 
WAIT FOR ANY OUTPUT COMPLETE 


BUILD MTA a 

SET A TO TADS 

BUILD MLA 8 

SET 8 TO LADS 

GOTO STANDBY STATE 

CLEAR INTERRUPT CAUSING BITS 
PREPARE BYTE COUNT REGISTER 
POINTER TO BUFFER a 


ENABLE FUNCTION (DMA) AND INTERRUPT 
DATA BYTE TO I/O REGISTER 


HAS INTERRUPT OCCURRED ? 

IF NOT,CONTINUE DMA 

CAUSED “BC OVFL” THE INTERRUPT 
IF YES,CONT INUE 


SEQ 108 


- T - : 7- 
FESH'S? GAR’ reanSPER ROAR 18°C ES UPS NeRSO 57-2 eh oe 
623 021132 ADP 04202 ,8CSR ; 
021164 ERROR ° s 
825 021170 013700 026774 6$: “Ov BUF AB RO s PROVIDE FIRST BYTE OF BUFFER A 
626 021174 013701 027002 MOV BUF BB ,R1 s PROVIDE FIRST BYTE OF BUFFER 6B 
627 021200 37 027006 CLR CNT1 ’ 
628 021204 005237 027006 CMPS: INC CNT1 s BYTE COUNT 
829 021210 122021 CMPB CRO)+, CRI)» + BUFFER A EQUAL TO BUFFER 6 - 
630 021212 001440 BEQ 7$ s IF YES,CONTINUE 
831 021214 114037 027026 “Ove -CRO), ASAVE s IF NOT,SAVE DATA 
832 021220 114137 027030 MOVE -(R1),BSAVE ’ 
833 021224 032737 040000 007160 BIT @BIT14,PSOSWR s PRINTOUT ALLOWED ? 
834 021232 001030 BNE ’ 
835 021234 WRITE 5 
021244 OuMP OcT,CNT1 s WRITE BYTE COUNT 
837 021256 ADP ASAVE ,BSAVE s OUMP NUMBER 
838 021310 ERROR 51. 
839 021314 023737 027006 027020 7%: CMP CNT1,6CINP s ALL BYTES COMPARED ? 
840 021322 001330 BNE CMPS s IF NOT,GET NEXT ONE 
641 0213524 005737 027024 TsT TSTREP s TEST LOOP SELECTED ? 
842 021330 001402 BEQ 8s s IF NOT,LEAVE THE TEST 
8435 021332 000157 020542 REPS ‘ 
844 021536 83: WRITE MESEND s END OF TEST 


845 021346 000207 RE TURN 


FES} SE 


MATOM CHARACTER Recision Test (8 is LIStenens 


005737 
0013575 


007152 


007160 


TEST6: 


1%: 


REP6: 
BEGE: 


1%: 


38: 


5$: 


CLR 


3ggg25978808 


“ee 
® 


ATACC 


@o 23200 
asa 


S385 3h 


G9 


SEQ 110 


"Sess" MATCH CHARACTER REGISTER TEST (6 IS LISTENER) 


OUTFLG 
.-4 


OVECB, @INTSRV, 0340 


#1,CNT2 
CHAR 
ieee 


(Rid+, BIOR 
#100,8CSR 
DMA6 

<i rneas 
#2202, 8CSR 
S2 


BUF AB RO 
BUFBB.R1 


R2 

R2,CNT2 

6% 

R2 

(RO)+,CR1)> 
MP6 


Cc 
-(RO), ASAVE 
-(R1) , BSAVE 


#61T14,PSOSWR 
5s 


MES18 
OcT,R2 
ASAVE , BSAVE 


WAIT FOR ANY OUTPUT COMPLETE 


BUILD MTA a 
SET A TO TADS 
BUILO MLA 8 
SET 6 TO LADS 


GOTO STANDBY STATE 
CLEAR HIGH-BYTE IN CSR 


FIRST COUNT OF MCR 
FIRST CHARACTER OF MCR 
CLEAR INTERRUPT CAUSING BITS 


POINTER TO BUFFER A 


ACTE 
LIMITED BY MATCH COUNT 


PROVIDE FIRST BUFFER ADDRESS A 
PREPARE BAR 

OvreMty VALUE TO BCR 

COUNT TO REGISTER 

CHARACTER TO REGISTER 

ENABLE MATCH 

ENABLE INTERRUPT AND DMA 

ONE BYTE TO IOR 


HAS INTERRUPT OCCURRED ? 
IF NOT,.CONTINUE OMA 
CAUSED “END” THE INTERRUPT 
IF vYES,CONTINUE 


PROVIDE FIRST BYTE OF BUFFER A 
PROVIDE FIRST BYTE OF BUFFER 6 
END OF BYTE COUNT ? 

BYTE COUNT 

BUFFER A EQUAL TO BUFFER B 

IF YES,CONT INUE 

If NOT,SAVE DATA 

PRINTOUT ALLOWED ? 


WRITE BYTE COUNT 
DUMP NUMBER 


H9 


18 MAR -@4 16:11 P 

FESHL? AhPls comeaclen Recrsten test «bis uisteneas S€0 111 
904 022116 ERROR 55 ‘ 
905 022122 005237 027012 68: INC s NEXT MATCH CHARACTER 
906 022126 122737 000400 027012 CHPB 80 «-@4.00,, CHAR 3s LAST CHARACTER ? 
907 022134 001220 BNE BEGS ‘ 
908 022136 005037 027012 CLR CHAR s FIRST CHARACTER 
909 022142 005237 027010 INC T2 s NEXT MATCH COUNT 
910 022146 122737 000100 027010 CHB = @100, CNT2 + ALL COUNTS DOME ? 
911 022154 001402 BEQ 78 ‘ 
912 022156 000137 021576 Jee BEG6 ‘ 
913 022162 005737 027024 78: TST TSTREP s TEST LOOP SELECTED ? 
914 022166 001402 BEQ es ; IF NOT,LEAVE THE TEST 
915 022170 000137 021564 ce shee : 
916 022174 8s: WRITE MESEND s END OF TEST 


917 022204 000207 RE TURN 


HESH's® Ella rOCE"BaSHEBDne FEST OH HoHE Pace 


-SBTTL TEST 7; SERIAL POLL PROCEDURE TEST 
MES20 


005737 
001375 


104000 
052777 
112777 
013700 
063700 
110077 


012701 
013700 


122777 
001416 
032737 
001012 


001417 


007152 


004034 


003762 
003756 


TEST?: 


SE TVEC 
REP?: 


POLLO: 


PO: 


5$: 


7$: 


18: 


2s: 


POLL1: 


WRITE 
Ts? OUTFLG 
BNE .-4 
SETVEC @vECB, OINTSRYV, 0340 
@VECA, @INTA, 0340 
MCLEAR 
cacs 
sc 
BIS @6IT1,. SSR 
*OvB @30.aIOR 
MOV LIIND,RO 
ADD LECAAC PY 
MOvB RO, @IOR 
DATACC 
MOv @0,R1 
MOV TAIND RO 
add R1,RO 
*OvB RO, @IOR 
OaTAacc 
BIS @6BIT2,8SMR 
STALL 

#0, BIORHB 
BEG S$ 
BIT @BIT14,PSOSUR 
BNE $ 
WRITE MES21 
OuMP OCT,R1 
ERROR ‘ 
INC 1 
CMP @37,R1 
BEG 7$ 
BIS #681T1,aSMR 
JMP 
BIS #6IT1,3SMR 
“Ove @31,aI0R 
BIS T2,8SMR 
NOP 
BIC 177400,aCIR 
MOV #177700,CNT1 
BIS #BITs8,ac 
BIS #100,acIR 
BIT #100,aCcIR 
BEQ 2s 
INC CNT1 
TST CNT1 
BNE 1$% 
ERROR 335. 
CMP + -acIR 
BEQ POLL 
ADP 2040201, 8CIR 
ERROR 56. 
SCOPE 
CLR 
BIS #BIT1,@SMR 
MOVB #30,8I0R 
MOV LIINO, RO 


19 


WAIT FOR ANY OUTPUT COMPLETE 


GOTO CACS 
SERIAL POLL ENABLE 
BUILD MAA 


SET A TO LADS 
BUILD FIRST TALKER ADDRESS 
BUILD TALKER ADDRESS 


GOTO STANDBY STATE.A TO LACS 


STATUS BYTE IS ZERO ? 
IF vES,TRY THE NEXT ONE 
PRINTOUT SELECTED ? 


GIVE INFORMATION ABOUT 
ILLEGAL IEC -BUS ADDRESS 


GET NEXT TALKER ADDRESS 
ALL DONE ? 


If NOT,.GOTO CACS 

AND SELECT THE NEXT ONE 
GOTO CACS 

DISABLE SERIAL POLL 

GOTO STANDBY STATE.A TO LACS 
JUST ENTRY -POINT 

CLEAR INTERRUPT CAUSING BITS 
PREPARE DELAY 

REQUEST SERVICE 

ENABLE INTERRUPT A 

HAS INTERRUPT OCCURRED ? 

IF vES,.CONTINUE 


CAUSED SRQ THE INTERRUPT ? 
IF YES,CONTINUE 


CLEAR DONE FLAG 
GOTO CACS 

SERTAL POLL ENABLE 
BUILD MAA 


SEG 112 


IEC 
TES 


1-8 
?: 


TES 


023514 
023522 


MACRO 


1200 
SERIAL POLL PROCEDURE T 


063700 
110077 


012701 


052777 


000411 


013777 


026 762 
003742 


000000 
026 766 


003706 


026764 


003556 
177400 
000100 


177777 
000037 


000002 
023016 
027014 


000002 
000031 
000004 
040000 


026770 
026764 
003306 


026766 
026762 
003254 


000004 
177760 
177777 
027002 


003660 
003626 


007160 


027014 


003456 


003430 
003424 
003414 
003404 


Pl: 


4$: 
S$: 


PEND1: 


7$: 


DON1: 


SPOVFL: 


So 16:11 PAGE 39-1 


JI 


ITECAAD ,RO 
RO, @IOR 


#081 
TAINO ,.RO 
R1,RO 

RO, @IOR 
*8IT2,aSMR 
0 , BIORHB 
S$ 

R1, IECBAD 


3$ 
ee 


MES21 
+ R1 


BrORNe, R2 
#1 77400, R2 
#100,R2 


PEND1 


43) 
#81T14,aCIR 
DON1 

60. 


LIIND,RO 
IECBAD ,RO 
RO,@IOR 


TAIND ,RO 
IECAAD ,RO 
RO, @IOR 


@BIT2,ASMR 
#177760,aCSR 
0177777,a6CR 
BUF BB, ABAR 


SET A TO LADS 
BUILD FIRST TALKER ADDRESS 
BUILD TALKER ADDRESS 


GOTO STANDBY STATE,.A TO LACS 


POLLING ADORESS ? 

IF NOT,TR: THE NEXT ONE 
LEGAL ADORESS ? 

IF YOS,CONTINUE 
PRINTOUT SELECTED ? 


GIVE INFORMATION ABOUT 
ILLEGAL IEC-BUS ADDRESS 


SAVE STATUS BYTE 


STATUS BYTE OK ? 
IF YES,CONTINUE 


SET DONE FLAG 

GOTO FINISH THIS TESTPART 
GET NEXT TALKER ADDRESS 
ALL DONE ? 


IF NOT,GOTO CACS 
AND SELECT THE NEXT ONE 


SEQ 113 


ONE POLLING ADDRESS FOUND AT LEAST ? 


IF YES.GOTO NEXT PART OF THE TEST 


GOTO CACS 

DISABLE SERIAL POLL 

GOTO STANDBY STATE.A TO LACS 
SRQ@Q CLEARED BY “SPD” ? 

IF YES,CONTINUE 


JUST ENTRY -POINT 


BUILD MLA 8 
SET B TO LADS 
BUILD MTA a 
SET A TO TADS 


O STANDBY ,SET A TO Mg TO LACS 


GOT 
CLEAR INTERRUPT CAUSING 


PREPARE BCR WITH HIGHEST VALUE 


FIRST BUFFER ADDRESS 


K9 


SEQ 114 


FESH1;© TEST. PACA 11200, SP-MAR-84 16:11 PAGE 39-2 


1033 023530 052777 000101 003206 BIS #101,8CSR s SET INTERRUPT ENABLE AND FUNCTION BIT 

ies 023536 112777 000252 003172 +++ #252, 8I0R s OUMMY VALUE TO I/0 REGISTER 
3544 é 

1036 023562 032777 000100 003154 1%: BIT > oeag acsrR s HAS INTERRUPT OCCURRED ? 

1037 023570 001574 BNE s IF YES,CONTINUE 

1038 023572 052777 000400 003144 BIS eerTe, a@csR 3s REQUEST SERVICE 

1039 023600 104000 SCOPE . 

1040 023602 005037 027014 POLL2: CLR DONE s CLEAR DONE FLAG 

1041 023606 052777 003120 BIS @BIT1,@SMR s GOTO CACS 

1042 023614 112777 000137 003114 MOvB #137,a@I0R s UNTALK IEC11-A 

1043 023622 DATACC : 

1044 023640 112777 000030 005070 MOvB @30,@I0R s SERIAL POLL ENABLE 

1045 023646 013700 026770 MOV LIINO,RO s BUILD MLA A 

1046 023652 063700 026762 ADO IECAAD ,RO 2 - 

1047 023656 110077 003054 MOvB RO, @IOR ; SET A TO LADS 

1048 DATACC : 

1049 023700 012701 MOV #0,R1 ; BUILD FIRST TALKER ADDRESS 

1050 023704 013700 026766 Pe: MOV TAINO ,RO 5 

1051 023710 060100 ADD R1,RO ; BUILD TALKER ADDRESS 

1052 023712 110077 003020 MOVE RO, @IOR ; 

1053 023716 DATACC 3 

1054 023734 052777 000004 002772 BIS @BIT2,aSMR s GOTO STANDBY STATE.A TO LACS 

1055 023742 STALL 

1056 023772 122777 000000 002740 00, @IORHB s POLLING ADDRESS ? 

1057 001452 BEQ S$ 3; IF NOT,TRY THE NEXT ONE 

1058 024002 120137 026764 CMPB R1, IECBAD s LEGAL ADDRESS ? 

1059 024006 001416 BEQ 3$ s IF YES,CONTINUE 

1060 024010 032737 040000 007160 BIT @BIT14,PSOSWR s PRINTOUT SELECTED ? 

1061 024016 001012 BNE 3$ 3 

1062 024 WRITE MES21 3 GIVE INFORMATION ABOUT 

1063 024030 DUMP "° Ri s ILLEGAL IEC-BUS ADDRESS 

1064 024040 ERROR : 

1065 024044 117702 002670 3$: MOvVB STORMS, Re s SAVE STATUS BYTE 

1066 024050 042702 177400 BIC #177400,R2 ; 

1067 024054 022702 000104 CMP #104 ,R2 s STATUS BYTE OK ? 

1068 024060 001416 BEQ as : IF YES,CONTINUE 

1069 024062 ADP #104 ,R2 ; 

1070 024112 ERROR 62. 5 

1071 024116 012737 177777 027014 4%: MOV @177777,D00NE s SET DONE FLAG 

1072 024124 000411 BR PEND2 ; GOTO FINISH THIS TESTPART 

1073 024126 00520 S$: INC R1 ; GET NEXT TALKER ADDRESS 

1074 024130 022701 000037 CMP @37,R1 s ALL DONE ? 

1075 024134 001405 BEQ ND2 ; 

1076 024136 052777 000002 002570 BIS @B1T1,@SMR s IF NOT,GOTO CACS 

1077 024144 000137 023704 JMP Pe ; AND SELECT THE NEXT ONE 

1078 024150 005737 027014 PEND2: TST DONE 3; ONE POLLING ADDRESS FOUND AT LEAST ? 

1079 024154 001002 BNE 7$ 3; IF YES,GOTO NEXT PART OF THE TES! 

1080 024156 ERROR 63. : 

1081 024162 052777 000002 002544 7%: BIS @BIT1,@SMR s GOTO CACS 

1062 024170 112777 000031 002540 MO #31,3I0R s DISABLE SERTAL POLL 

1083 024176 052777 000004 002530 BIS @BIT2,aSMR s GOTO STANDBY STATE,.A TO LACS 

1084 024204 000240 NOP 3s JUST ENTRY -POINT 

1085 024206 MCLEAR ; 

1086 024222 cACcS H 

1087 024264 013700 026770 MOV LIIND,RO ; BUILD MLA B 

1088 024270 063700 026764 ADD IECBAD ,RO ; a! 

1089 024274 110077 002436 MOVB RO,@IOR ; SET B TO LADS 


Hest 78 


TEST a, pfiXCPp.ti200, S0-MAR-64 16:11 PAGE 39-5 


013700 


117702 
042702 
022702 
001416 


012737 


002012 
177400 
000110 


177777 


000037 


000002 
024562 
027014 


027014 


001712 


SPEND: 


1%: 


POLLS: 


PS: 


3$: 


4$; 
5$: 


PEND3: 


DATACC 


LO 


0377,@I0R 
a 
#6IT8,@CSR 


DONE 
#6IT1,8SMR 
#137,a@I0R 


Ri, 

RO,@IOR 
@BIT2,8SMR 
00, @IORHB 

S$ 

ee 

> aaieltimaamas 


MES21 
s' R1 


STORHB, R2 
#177400,R2 
#110,R2 

ae 

#110,R2 

65 


0177777,DONE 
PEND3 


AAS 


BUILD MTA A 
SET A TO TADS 


SEQ 115 


GOTO STANDBY ,SET A TO TACS,B TO LACS 
CLEAR INTERRUPT ~ BITS 


FIRST BUFFER 


ADORE S 
PREPARE BYTE COUNT — 


OMA). AND INTERRUPT 


NABLE FUNC ¢ 
FIRST BYTE IN I/O REGISTER 
HAS INTERRUPT OCCURRED ? 


IF YES,CONTINUE 
REQUEST SERVICE 


CLEAR DONE FLAG 
GOTO CACS 
UNTALK IEC11-A 


SERIAL POLL ENABLE 


BUILD MLA A 
SET A TO LADS 


BUILD FIRST TALKER ADDRESS 


BUILD TALKER ADDRESS 


GOTO STANDBY STATE.A TO LACS 


POLLING ADORESS ? 


IF NOT, TRY THE NEXT ONE 


LEGAL ADDRESS ? 
IF YES,CONTINUE 


PRINTOUT SELECTED ? 


GIVE INFORMATION ABOUT 
ILLEGAL IEC-BUS ADDRESS 


SAVE STATUS BYTE 
STATUS BYTE OK ? 


IF vVES,CONTINUE 


SET DONE FLAG 


GOTO FINISH THIS TESTPART 
GET NEXT TALKER ADORESS 


ALL DONE ? 


IF NOT,GOTO CACS 


AND SELECT THE NEXT ONE 
ONE POLLING ADORESS FOUND AT LEAST 


IF YES,GOTO NEXT PART OF 


Tee TEST 


? 


HESts? Eat eOCE*PROLEB ORE Pest" -°* 


052777 001202 


001150 


007160 


16:11 PAGE 39-4 


78: 


SPNEX: 


1%: 


2s: 


POLL4: 


P4: 


$ 
@BIT8,aCSR 


DONE 
@B1IT1,3SMR 
#137,@I0R 


S$ 
+ - IECBAD 
sett eee 


SE@ 116 


GOTO CACS 

DISABLE SERIAL POLL 

GOTO STANDBY STATE,A TO LACS 

JUST ENTRY -POINT 

BUILD MLA B 

SET 6 TO LADS 

BUILD MTA A 

SET A TO TADS 

GOTO STANDBY ,SET A TO TACS,B TO LACS 


CLEAR INTERRUPT CAUSING BITS 


FIRST LOC IN I/O PAGE 
FIND A 


NON -EXISTANT 
MEMORY ADDRESS 


PREPARE BCR 
ENABLE INTERRUPT AND FUNCTION (OMA) 
DUMMY VALUE TO OUTPUT REGISTER 


HAS INTERRUPT OCCURRED ? 
IF YES,CONTINUE 
REQUEST SERVICE 


CLEAR DONE FLAG 
GOTO CACS 
UNTALK IEC11-A 


SERIAL POLL ENABLE 
BUILD MLA A 


SET A TO LADS 
BUILD FIRST TALKER ADDRESS 
BUILD TALKER ADDRESS 


GOTO STANDBY STATE.A TO LACS 


POLLING ADDRESS ? 

IF NOT,TRY THE NEXT ONE 
LEGAL ADORESS ? 

IF YES,CONTINUE 
PRINTOUT SELECTED ? 


FESH 7? SERIw Port "Prdtébure fest 


117702 
042702 
022702 
001416 


012737 
11 


032777 


001100 
177400 
000102 


177777 


000037 


027014 


001000 


000440 


16:11 PAGE 39-5 


SPBTOA: 


1$: 


POLLS: 


PS: 


N9 


MES21 
ocT,R1 
67 


SIORHB ,R2 
#177400,R2 
#102,R2 

as 

#102,R2 

68. 

#177777 ,DONE 
PENDS 


#31,aI0R 
*BIT2,aSMR 


TAIND ,RO 
ITECBAD ,RO 
RO,@IOR 
LIINO,RO 
IECAAD ,RO 
RO,@IOR 
@BIT2,aSMR 


#177400,8CSR 


@IORHB ,CR1)+ 
#100,8CSR 


1$ 
#B1T8,aCSR 


RO,@IOR 


GIVE INFORMATION ABOUT 
ILLEGAL IEC-BUS ADDRESS 


SAVE STATUS BYTE 


STATUS BYTE OK ? 
IF YES,CONTINUE 


SET DONE FLAG 
GOTO FINISH THIS TESTPART 
GET NEXT TALKER ADORE 


ALL DONE ? 


IF NOT,GOTO CACS 


ss 


AND SELECT THE NEXT ONE 
ONE POLLING ADDRESS FOUND AT LEAST ? 


IF YES,GOTO NEXT PART OF THE TEST 


GOTO CACS 


OISABLE SERIAL POLL 
GOTO STANOBY STATE.A TO LACS 
JUST ENTRY -POINT 


BUILD MTA 8 


SET 8 TO TADS 


BUILD MLA A 


SET A TO LADS 
GOTO STANDBY STATE 


CLEAR INTERRUPT CAUSING BITS 
FIRST BUFFER ADDRESS 
PREPARE 


TO TRANSFER “O” 
PREPARE BYTE COUNT REGISTER 


POINTER TO BUFFER A 
ENABLE FUNCTION (OMA) AND INTERRUPT 


DATA TO BUFFER A 
HAS INTERRUPT OCCURRED ? 
IF YES,CONTINUE 
REQUEST SERVICE 


CLEAR DONE FLAG 


GOTO CACS 


SERIAL POLL ENABLE 
BUILD FIRST TALKER ADDRESS 


BUILD TALKER ADDRESS 


SEQ 117 


FESH'? LERln. BCE PAOLEDne Regt Ot Nett Pace 80 


052777 
122777 


000004 
000000 
026 764 
040000 


000266 
177400 
000104 


177777 


000037 


000370 
000336 


007160 


027014 


000166 


4%; 
S$: 


B10 


2. 
@61T1,@SMR 
#31,@I0R 
BI T2,@SMR 


C10 


GOTO STANDBY STATE.A TO LACS 


POLLING ADDRESS 


? 
IF NOT, TRY THE NEXT ONE 
ADORE 


INUE 
PRINTOUT SELECTED ? 


GIVE INFORMATION ABOUT 
ILLEGAL IEC-BUS ADDRESS 


SAVE STATUS BYTE 


STATUS BYTE OK ? 
IF YES,CONT INUE 


SET DONE FLAG 


GOTO FINISH THIS TESTPART 
GET NEXT TALKER ADDRESS 


ALL DONE ? 
IF NOT,.GOTO CACS 


AND SELECT THE NEXT ONE 


SEQ 118 


ONE POLLING ADDRESS FOUND AT LEAST ? 


IF YES,GOTO NEXT PART OF THE TEST 


GOTO CACS 
OISABLE SERTAL 


JUST ENTRY -POINT 


POLL 
GOTO STANDBY STATE,.A TO LACS 


TEST LOOP SELECTED ? 


IF NOT, LEAVE THE 
END OF TEST 


rest 


C10 


HifthafleFSEavicP*RBGr ER? 30-MAR-84 16:11 PAGE 40 s€0 119 
i390 -SBTTL INTERRUPT SERVICE ROUTINES 
’ 

1301 : 
1302 
1303 026634 052737 177777 027022 Inttst: BIS 0177777, INTFLG s SET INTERRUPT FLAG 
1304 026642 000002 RTI i 
1305 ’ 
130° 

; ’ 
1308 026644 000240 INTSRV: NOP s JUST ENTRY POINT 
1309 026646 000002 RTI 8 
1310 ’ 
1311 : 
1312 3 
1313 026650 PRIOR: PSET 0 s CLR PSw 
1314 026674 062706 000004 ADD 04,SP s INCREASE SP Br 4 
1315 026700 000113 JMP (R53) 3s GOTO PRINTOUT 


| dh cual 
wu 
od 
NO 
- 


1318 3 
1319 026702 032777 040000 000022 =#INTA: BIT @BIT14,aCcIR s CAUSED SRQ THE INTERRUPT ? 
1320 026710 001005 BNE 18 3 
1321 026712 052777 000100 000012 BIS #100,aCIR s REENABLE INTERRUPT 
1322 026720 000002 18: RTI F] 
1323 : 
He : 
3 
1326 026722 052737 177777 027016 NEXMEM: BIS @177777,NEXFLG 3s SET FLAG FOR NEX INDICATION 
1327 026730 000002 RTI F] 
1328 3 
1329 : 
1330 3 


‘awe 


D10 


bbR2+ aR 2 SS amr abiE2° M1200 30-MAR-84 16:11 PAGE 41 SEQ 120 
1332 -SBTTL CONSTANTS, VARIABLES 
1333 026732 160010 CIR: 160010 s CIR ADORESS DEFAULT VALUE 
1334 026734 160012 SMR; 160012 s SMR ° 


Cc anh, 


E10 


EGE ART SE Samra be? M1200 30-MAR-864 16:11 PAGE 42 SEQ 121 


1336 026736 160014 TOR: 160014 s IOR - 


F10 


C11-6 TEST M1200 30-MAR-864 16:11 PAGE 43 Q 
Cons tants. VARIABLES. — 
1338 026740 160015 IORMB: 160015 s IOR MIGH-BYTE ADDRESS DEFAULT VALUE 
1339 026742 160016 VSR: 160016 s VSR ° 
1340 026744 160020 CSR: 1 s CSR - 
1341 026746 160022 BCR: 160022 s BCR - 
1342 026750 160024 BAR: 160024 + BAR “ 
1343 026752 160026 MCR: s MCR = 
1344 026754 160027 : 160027 s MCR HIGH-BYTE ADDRESS DEFAULT VALUE 
1345 026756 000270 VECA: 270 s DEFAULT OF IEC11-A VECTOR ADDRESS 
1346 026760 000274 3 274 s DEFAULT OF IEC11-8 VECTOR ADDRESS 
1347 026762 000035 IECAAD: 35 s TEC11-A BUS ADDRESS DEFAULT VALUE 
1348 026764 000036 IECBAD: s TEC11-8 BUS ADORESS DEFAULT VALUE 
1349 026766 000100 TAINO: 100 s TALKER INDICATION 
17 026770 000040 LIIND: 40 s LISTENER INDICATION 
; 
1352 
1353 026772 000000 MEMSAV: .WORD O s MEMORY AREA FOR BUFFERS 
1354 026774 000000 BUFAB: .WORD O s FIPST ADDRESS IN BUFFER A 
1355 026776 000000 BUFAE: .WORD O s LAST ADDRESS IN BUFFER A 
1356 027000 000000 BUFFL: .WORD O s LENGTH OF BUFFERS IN BYTES 
1357 027002 000000 BUFBB: .WORD O s FIRST ADDRESS IN BUFFER 6 
ise 027004 000000 BUFBE: .WORD 0 s LAST ADDRESS IN BUFFER 6 
Q 
1360 
1361 027006 000000 CNT1: -WORD O s DELAY OR COUNTER 
1362 027010 000000 CNT2: «WORD O s DELAY OR COUNTER 
1363 027012 000000 CHAR : «WORD O 3 CHARACTER FOR MCR 
1364 027014 000000 -WORD O : 
1365 027016 000000 NEXFLG: .WORD O s NEX-PROCEDURE (TESTS) TIMEOUT FLAG 
1366 027020 000000 BCINP: .WORD O s REQUESTED BYTE COUNT FOR DMA 
1367 027022 000000 INTFLG: .WORD O s INTERRUPT FLAG 
1368 027024 000000 P: .WORD O s FLAG FOR LOOP ON SINGLE TESTS 
1369 027026 000000 ASAVE: .WORD 0 ; 
1370 027030 000000 BSAVE: .WORD O ‘ 


TEC11 -# 
MESSAGES 


1372 


TEST 


MACRO M1200 30-MAR-64 16:11 


PAGE 44 
. SBTTL 
-NLIST 
MIO: ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
MES1: -ASCII 
ASCII 
MES2: -ASCII 
ASCII 
MESS: .ASCIT 
-ASCII 
MES4: ASCII 
ASCII 
MESS: -ASCII 
ASCII 
MES6: ASCII 
MES?7: -ASCI1 
ASCII 
MESSE: ASCII 
MESS: -ASCII 
MES10: .ASCII 
MES11: .ASCII 
MES12: .ASCII 
MES13: .ASCII 
MES14: .ASCII 
MES15: .ASCII 
MES16: .ASCII 
MES17: .ASCII 
MES18: .ASCII 
MES19: .ASCII 
MES20: .ASCII 
MES21: .ASCII 
MESNEX: .ASCII 
MESEND: .ASCII 
EVEN 
LIST 


G10 


— 


AIEC11-8 Test - CONNECT ION/ 

aS, TEC1I1-A INTERFACE/ 

CSS MUNICH MARCH 1979/7 

MODIFIED FOR SOC SUBMISSION MARCH 1964)/ 
(CENTER FIRST REGISTER ADORESS OF IEC11-A/ 
(DEFAULT IS 160010))}/ 


ENTER FIRST REGISTER ADDRESS OF IEC11-B8/ 

(OEFAULT IS 160020))/ 

ENTER VECTOR ADORESS OF TEC11-8/ 

(OEFAULT IS 274))/ 

ENTER IEC-BUS ADDRESS OF IEC11-A/ 

(OEFAAT IS 35))/ 

VECTOR INPUT IS NOT EQUAL TO CONTENTS OF vSR)/ 
ENTER IEC-BUS ADDRESS OF IEC11-6/ 

(DEFAULT IS 36))/ 

{TEST 1: REGISTER STATIC TEST)/ 

TEST 2: TALKER AND LISTENER FUNCTION TEST })/ 

TEST 3: GENERAL INTERRUPT AND DMA FUNCTION TEST)/ 
TEST 4; OMA-TRANSFER FROM B TO A (8 IS TALKER))/ 
TEST S: OMA-TRANSFER FROM ATO 8 (6 IS LISTENER))/ 

BUS REQUEST LEVEL IS 7 4 


BUS REQUEST LEVEL IS 4 !}/ 
pg Bd ba a T MROER : (MAXIMAL ))/ 

vT 

Test 6: RU MnaTCH CHARACTER REGISTER TEST (B IS LISTENER) )/ 
TEST 7: SERTAL POLL a mr TEST )/ 

ILLEGAL STATUS BYTE ON IEC BUS ADDRESS : }/ 

NEXT TEST TO RUN ?)/ 

END OF TEST)/ 


SASSSSASSASSSSASAASAAAAASAAASASAASAM 
loan Keen Keen famell ©? een Comal am 
Rz =} 
Bal 
z ®B 
=m 
no 
a5 
~ 
~ 
: a 
~ 
— 
~ 
w 
at 
g 
, 
. 
ee 
~~ 
p 
~ 


S DASA SASSASSASAAAASASASAAASASAASAAAAR 


SEQ 123 


BGR ESL wecPAGER FEEVo SOAR 84 1er11 PAGE 45 


031100 


017601 000012 
016602 000014 
104000 


REGTST: 


18: 


S$: 


2s: 


-SBTTL STANDARD 


— =e an 


H10 


41 fN\ 


-7%6 


ROUTINE DESCRIPTION: 


INPUT: REGISTER BI TMASK 
OuTPUT; ONLY IF 


OCCUR : 


BIT MASK OF R AND W BITS IN REGISTER NR: XXXKXx 
CONTENTS SHOULD BE: BuT WAS 
ERROR 000255, 


OR 000255 
FUNCTION: BEFORE THIS ROUTINE CALL AT FIRST MUST BE 


THE BITMASK AND THEN THE REGISTER 


PUSHED 

ONTO THE STACK. 

THE ROUTINE CHECKS ALL READ/WRITE BITS OF 
THE CORRESPONDING REGISTER AND PRINTS ERROR 
MESSAGES IF THE READ AND WRITE WAS NOT IDENT. 


REGTST 


EXAMPLE :PUSH @128,0CSR 
CALL 


GROO1 

GET ADDRESS OF REGISTER;GROO1 
GET BITMASK ;GROO1 

PREPARE SCOPE LOOP 

TRY TO SET ALL BITS 

TRY TO READ IT BACK 


Es 
TF ADP AFTER ERROR IS NOT ALLOWED, 
GOTO 5$,ELSE WRITE 
WRITE AT REGISTER NR: 
OMP REGISTER NUMBER 


NOT ALL BITS SET 
RESTART TEST 

SAVE SCOPE LOOP ADRESS 
CLEAR BITS UNDER MASK 
READ BITS 

BUILD MASK COMPLEMENT 
MASK OUT UNUSED BITS 


If ADP ITS NOT ALLOWED 
GOTO 6$ 
AT REGISTER 


SEQ 124 


110 


eT “ 50-MAR-84 16:11 PAGE 45. 

BSbaBo ERE wectsten Teer” : t SEQ 125 
1468 031264 DUMP «OCT, R1 ; OMP REGISTER NR 
1469 031274 6%: app €9,R0 
1470 031324 ERROR 254, s NOT ALL BITS RESET 
1471 031330 000673 BR 18 s RESTART TEST 
1472 031332 005102 38: Com R2 3 BUILD COMPLEMENT OF mMasK 
1473 031334 004737 031506 CALL § RANDOM + GET A RANDOM @ 
1474 031340 040200 BIC R2,RO s MASK OUT UNUSED BITS 
1475 081342 104000 ; SAVE SCOPE LOOP ADORESS 
147% 031344 010011 MOV RO, (RL) ; TRY TO SET RANDOM BITS 
1477 031346 011103 eri ,RS ' ’ 
1478 031350 040203 BIC R2,R3 ; CLEAR UNUSED BITS s GROOL 
1479 031352 300 R3,RO ; ALL BITS OK ? ; GROO1 
1480 031354 001432 BE ‘ + BRANCH IF YES 
1481 031356 TST14 © PSDSWR ; IF ADP IS NOT ALLOWED 
1482 031364 001023 @NE 73 ; GOTO 78 
1483 031366 WRITE  RGSMS$ ; ELSE WRITE REGISTER NR 
1484 031376 OCT,R1 3 DUMP REGISTER NUMBER 
1485 031406 ADP RO.RS + SHOULD BE RO,WAS R3 
1486 031434 7$: ERROR 253. ; DATA CHECK IN REGISTER 
1487 031440 000627 BR 18 ; RESTART TEST 
1488 031442 005102 4s: Com R2 ; REBUILD MASK 
1489 031444 $$LO0P 1000,1$ 
1490 031466 PoP R3,R2,R1,RO s GROO1 
1491 031476 062706 000006 ADD 06. SP ; REBUILD STACK 
1492 031502 000176 177772 JMP @-6( SP) + RETURN TO CALLER 

7 
1490 : RANDOM NUMBER GENERATOR USED FOR REGIST 
Q 

1496 031506 013746 031544 RANCOM: MOV RA, -( SP) 
1497 031512 013700 031546 MOV RB.RO 
1498 031516 006316 ASL asP 
1499 031520 005500 RO 
1500 031522 ASR RO 
1501 031524 005516 ADC asP 
1502 031526 061600 ADD asP ,RO 
1503 031530 005600 SBC RO 
1504 031532 012637 031544 MOV (SP)+,RA 
1505 031536 010037 031546 RO.RB 
1506 031542 000207 RE TURN 
1507 031544 135753 RA: 135753 
1508 031546 024624 RB: 024624 
1509 \NLIST BEX 
1510 031550 133 102 111 RGSMS$: [ASCII /[BIT MASK OF R AND W BITS IN REGISTER NR: }/ 
1511 "LIST BEX 
1512 "EVEN 
1513 031624 PRGEND: 
1514 001204 .END = START 


J10 


. " -MAR - P 4s- 
E6318, TES) MACRO M1200 50 84 16:11 PAGE 45-2 SEQ 126 
acca 0..TYP 006420 007652 NOR.ER 004376 011312 
ADDRIN 0113516 EMTTBL 002416 MERRP2 007662 NOR..E 004372 SCOPAD 007172 
ASAVE 027026 EMTTNOD MERI 010304 NO6 010612 SCOPE = 1 
BAR EMTO 002424 MER2 0103335 OF FCNT SEQ 012160 
BCINP 027020 EMT1 MESEND 031061 OFFSET 012112 SEQPNT 012156 
BCING 017376 EnT2 002470 MESNEX 031034 OUTFLG 007152 SINGLE 012114 
BCINS 02047 ENOBIT 016410 MES1 027226 PEND1 SISORO= 
BCOVFL 016216 ERRFLG 007154 MES1O 030123 024150 026734 
BCR 026746 IAD..E 004302 MES11 PENDS SPBTOA 026150 
BODRIN 011724 IAE..E 005016 MES12 030267 PEND4 025740 SPEFLG 007170 
BEG6 021576 IAS. .€ MES13 030353 PENDS 026552 SPEND 3 
BITO = 000001 IAY..E 004116 MES14 PMODE = 030000 SPNEX 025234 
BIT1 = IECAAD 026762 MESIS 030441 POLO 022340 SPOVFL 023506 
BIT10 = 002000 Ie 026764 MES16 030474 POLL 022736 * 177572 
BIT11 = 004000 INFLAG 007150 MES17 030527 POLL2 023602 * 172516 
BIT12 = 010000 INPREQ 007156 MES18 030575 POLLS START 001204 
BIT15 = ° 003776 MES19 030622 POLS 0253572 STATUS 007164 
BIT14 = 040000 INTA 026702 MES2 027325 POLLS STCHGE 014564 
BITiS = 100000 INTB4 020100 MES2O0 030712 PR 016622 TAIND 026766 
BIT2 = 000004 INTFLG 027022 MES21 030757 PRERR 017324 TESTAL 012144 
BITS = 000010 INTSRV 026644 MESS 027407 PRGEND 031624 TESTL 012242 
BIT4 = 000020 INTTST S4 027504 PRIEX 017330 TEST2 013074 
BITS = 000040 026736 MESS 7566 PRIOR TESTS 014352 
BIT6 = 000100 IORHB 026740 S6 027650 PRI4 017310 TEST4 017350 
BIT? = 000200 I. .OMP= 1 MES7 027726 PRIS 017236 TESTS 020442 
BITS = 000400 KBBEND 007146 MESS 030010 PRI6 017164 TEST6 021350 
BITS = 001000 KBBPNT 007146 MESO 030047 PRI7 017112 TEST? 022206 
BSAVE 027030 KBBUFF 007026 MIO 027032 PROMES 007202 TKB = 177562 
BUFAB 026774 KDSARO= 172360 MILADR 007445 PR1 017050 TKS = 177560 
BUFAE 026776 SDRO= 172320 MILBIN 007 PR2 017126 TPB == 177566 
BUFBB 027002 KISARO= 172340 MILDEC 007316 PRS 017200 TPS = 177564 
BUFBE 027004 KISARS= 172352 MILEMT 007421 PR4 017 TSTREP 027024 
BUFFL 27000 KISAR6= 172354 MILOCT 007256 = 177776 012220 
BUFPRP 010614 KISAR7= 172356 MILSCP 00 PSOSWR 007160 TTE 012242 
COM..E 010614 KISDRO= 172300 MILTRi 010104 022412 TYP. .€ 1 
CHAR 027012 KISOR6= 172314 MILTR2 010144 Pl 023016 * 170200 
CIR 026732 KISOK7=* 172316 MK 007215 P2 023704 UDSARO= 177660 
CMODE = 140000 LAB1 013340 010032 P3 024562 UDSDRO= 177620 
CMP4 020276 LAB11 012042 MPWRFL 007704 P4 025474 UISARO= 177640 
CMPS 021204 LAB2 013416 MSYERR 007503 PS 026306 UISAR4= 177650 
CMP6 022010 LABS 013474 MVERSN 010156 RA 031544 UISARS= 177652 
CNT1 027006 LAB4 013612 M..DET 001662 RANDOM 031506 UISAR6= 177654 
CNT2 027010 LABS 013760 M..HIM 001766 031546 UISAR7= 177656 
CSR 026744 LAB6 014036 M..MMM 002006 RED. .E UISDRO= 177600 
DEFA 011374 LAB7 014114 M..RET 001726 REGTST 031100 UISDR4= 177610 
DEFB 012002 LABS 014176 M..SAV 001424 REP1 12252 UISORS= 177612 
DMA4 LABS 014326 M..TRP 001776 REP2 013106 UISOR6= 177614 
DMAG6 021676 LAST4 020106 M..TSE 001374 REPS 014372 UISOR7= 177616 
OMP..E 006674 LIIND 026770 M..TST 001516 REP4 017450 U..DET 001760 
DONE 027014 MAPER 010472 . REPS 020542 VECA 026756 
DONO 022610 MCR 026752 NEXBIT 014712 REP6 021564 VECAIN 011216 
DON1 023334 MCRHB_ 026754 NEXFLG 027016 REP? 022260 VEC 760 
DON2 024204 MEMDEF 010426 NEXMEM 026722 RGAIN 010752 VECBIN 011646 
DON3 i) MEMEND 007022 NEX1 015214 RGBIN 011402 026742 
DON4 025774 MEMSAV 026772 NE X2 015424 RG$MS$ 031550 WRT..E 006060 
DONS 026606 MERCOV 007737 NEX3 015626 RUBFLG 007162 x = 000340 
DUMMES 007210 MERHLT 010002 NEX4 016022 R..TYP= 000001 XX = 000004 


K10 


gE ie? te MACRO M1200 30-MAR-64 16:11 PAGE 45-3 SEQ 127 
ZssZ = 000004 $.$ASF 007174 $..00C 006426 $..I0T 003056 $. .RED 

Z$$$Z = 000000 $..ADP 006706 $..EMT 002326 $..KBI 003424 $..RRS 003400 

SMNOAV 010351 $..ASC 005464 $..ER 007166 $..KBO 006122 $..RSV 003360 

SPOINT 006614 $..B8IN 005504 $..IAA 004120 $..MAP 002116 $..SPC 012010 

$SHLD 007176 $. .BUF $..IAD 004210 $..MSP 005700 $..STX 

STABLE 006616 $..08N 0066350 $..IAE 004472 $..NOR 004304 $..TOT 006754 

$WAS 007200 $..00C 006520 $..IAS $..0CT 005112 $..TRP 

$sMTYP 007020 $..0€C 005270 $..IAY 004010 $..PRO 006136 $..TYP 001242 

$sPTYP 007016 $..0MP 006400 $.. 003574 $..PWR 003126 $..WRT 


- ABS. 031624 000 
000000 001 


000000 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 13624 WORDS ( 54 PAGES) 


DYNAMIC MEMORY: 20060 WORDS ( 77 PAGES) 
ELAPSED TIME: 00:03:37 


e 


